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;