From 3c015555ae42be3acdf53449259baf282bbcbcfd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Mon, 10 Mar 2014 00:53:09 +0000
Subject: [PATCH] use unsigned RawDoFmt() formatting for size in heap debug
 mode

git-svn-id: trunk@27069 -
---
 rtl/amiga/sysheap.inc   | 4 ++--
 rtl/morphos/sysheap.inc | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/rtl/amiga/sysheap.inc b/rtl/amiga/sysheap.inc
index d732d015b6..777bf8cc5a 100644
--- a/rtl/amiga/sysheap.inc
+++ b/rtl/amiga/sysheap.inc
@@ -30,7 +30,7 @@ begin
   values[0]:=dword(result);
   values[1]:=dword(size);
   values[2]:=DWord(Sptr-StackBottom);
-  RawDoFmt('FPC_MEM_DEBUG: $%lx:=SysOSAlloc(%ld), free stack: %ld bytes'+#10,@values,pointer(1),nil);
+  RawDoFmt('FPC_MEM_DEBUG: $%lx:=SysOSAlloc(%lu), free stack: %ld bytes'+#10,@values,pointer(1),nil);
 {$ENDIF}
 end;
 
@@ -46,6 +46,6 @@ begin
   values[0]:=dword(p);
   values[1]:=dword(size);
   values[2]:=DWord(Sptr-StackBottom);
-  RawDoFmt('FPC_MEM_DEBUG: SysOSFree($%lx,%ld), free stack: %ld bytes'+#10,@values,pointer(1),nil);
+  RawDoFmt('FPC_MEM_DEBUG: SysOSFree($%lx,%lu), free stack: %ld bytes'+#10,@values,pointer(1),nil);
 {$ENDIF}
 end;
diff --git a/rtl/morphos/sysheap.inc b/rtl/morphos/sysheap.inc
index e89c43081d..50f9db727f 100644
--- a/rtl/morphos/sysheap.inc
+++ b/rtl/morphos/sysheap.inc
@@ -30,7 +30,7 @@ begin
   values[0]:=dword(result);
   values[1]:=dword(size);
   values[2]:=DWord(Sptr-StackBottom);
-  RawDoFmt('FPC_MEM_DEBUG: $%lx:=SysOSAlloc(%ld), free stack: %ld bytes'+#10,@values,pointer(1),nil);
+  RawDoFmt('FPC_MEM_DEBUG: $%lx:=SysOSAlloc(%lu), free stack: %ld bytes'+#10,@values,pointer(1),nil);
 {$ENDIF}
 end;
 
@@ -46,6 +46,6 @@ begin
   values[0]:=dword(p);
   values[1]:=dword(size);
   values[2]:=DWord(Sptr-StackBottom);
-  RawDoFmt('FPC_MEM_DEBUG: SysOSFree($%lx,%ld), free stack: %ld bytes'+#10,@values,pointer(1),nil);
+  RawDoFmt('FPC_MEM_DEBUG: SysOSFree($%lx,%lu), free stack: %ld bytes'+#10,@values,pointer(1),nil);
 {$ENDIF}
 end;