Преглед изворни кода

use unsigned RawDoFmt() formatting for size in heap debug mode

git-svn-id: trunk@27069 -
Károly Balogh пре 11 година
родитељ
комит
3c015555ae
2 измењених фајлова са 4 додато и 4 уклоњено
  1. 2 2
      rtl/amiga/sysheap.inc
  2. 2 2
      rtl/morphos/sysheap.inc

+ 2 - 2
rtl/amiga/sysheap.inc

@@ -30,7 +30,7 @@ begin
   values[0]:=dword(result);
   values[0]:=dword(result);
   values[1]:=dword(size);
   values[1]:=dword(size);
   values[2]:=DWord(Sptr-StackBottom);
   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}
 {$ENDIF}
 end;
 end;
 
 
@@ -46,6 +46,6 @@ begin
   values[0]:=dword(p);
   values[0]:=dword(p);
   values[1]:=dword(size);
   values[1]:=dword(size);
   values[2]:=DWord(Sptr-StackBottom);
   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}
 {$ENDIF}
 end;
 end;

+ 2 - 2
rtl/morphos/sysheap.inc

@@ -30,7 +30,7 @@ begin
   values[0]:=dword(result);
   values[0]:=dword(result);
   values[1]:=dword(size);
   values[1]:=dword(size);
   values[2]:=DWord(Sptr-StackBottom);
   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}
 {$ENDIF}
 end;
 end;
 
 
@@ -46,6 +46,6 @@ begin
   values[0]:=dword(p);
   values[0]:=dword(p);
   values[1]:=dword(size);
   values[1]:=dword(size);
   values[2]:=DWord(Sptr-StackBottom);
   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}
 {$ENDIF}
 end;
 end;