diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-12-27 17:28:00 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-12-27 17:28:00 +0100 |
| commit | ff6b0244b39ccdb30a499038382d2676d9c278be (patch) | |
| tree | a966c4e951b61310e47f15ff85b3e80b5e5bc16e /UCoreUtils.pas | |
| parent | 2e39205afb249626b24b1af2251297ff039a60ca (diff) | |
| download | tuxcmd-ff6b0244b39ccdb30a499038382d2676d9c278be.tar.xz | |
Kylix fixes, cleanup
Diffstat (limited to 'UCoreUtils.pas')
| -rw-r--r-- | UCoreUtils.pas | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/UCoreUtils.pas b/UCoreUtils.pas index c4e71a7..342d796 100644 --- a/UCoreUtils.pas +++ b/UCoreUtils.pas @@ -1124,7 +1124,11 @@ begin with Params[I] do case VType of vtPointer: begin - P := g_strdup_printf('%p', VPointer); + {$IFDEF CPU64} + P := g_strdup_printf('%.16p', VPointer); + {$ELSE} + P := g_strdup_printf('%.8p', VPointer); + {$ENDIF} Write(ErrOutput, P); g_free(P); end; |