From ff6b0244b39ccdb30a499038382d2676d9c278be Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sun, 27 Dec 2009 17:28:00 +0100
Subject: Kylix fixes, cleanup

---
 UCoreUtils.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'UCoreUtils.pas')

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;
-- 
cgit v1.2.3