Browse Source

* changed destination parameter of getmem/getmemory from "var" to "out"
(mantis #11907)

git-svn-id: trunk@13036 -

Jonas Maebe 16 years ago
parent
commit
533f533868
2 changed files with 4 additions and 4 deletions
  1. 2 2
      rtl/inc/heap.inc
  2. 2 2
      rtl/inc/heaph.inc

+ 2 - 2
rtl/inc/heap.inc

@@ -230,12 +230,12 @@ begin
     or (MemoryManager.FreeMem<>@SysFreeMem);
     or (MemoryManager.FreeMem<>@SysFreeMem);
 end;
 end;
 
 
-procedure GetMem(Var p:pointer;Size:ptruint);
+procedure GetMem(Out p:pointer;Size:ptruint);
 begin
 begin
   p := MemoryManager.GetMem(Size);
   p := MemoryManager.GetMem(Size);
 end;
 end;
 
 
-procedure GetMemory(Var p:pointer;Size:ptruint);
+procedure GetMemory(Out p:pointer;Size:ptruint);
 begin
 begin
   GetMem(p,size);
   GetMem(p,size);
 end;
 end;

+ 2 - 2
rtl/inc/heaph.inc

@@ -77,8 +77,8 @@ function  SysGetHeapStatus:THeapStatus;
 function  SysGetFPCHeapStatus:TFPCHeapStatus;
 function  SysGetFPCHeapStatus:TFPCHeapStatus;
 
 
 { Tp7 functions }
 { Tp7 functions }
-Procedure Getmem(Var p:pointer;Size:ptruint);
-Procedure Getmemory(Var p:pointer;Size:ptruint);
+Procedure Getmem(Out p:pointer;Size:ptruint);
+Procedure Getmemory(Out p:pointer;Size:ptruint);
 Procedure Freemem(p:pointer;Size:ptruint);
 Procedure Freemem(p:pointer;Size:ptruint);
 Procedure Freememory(p:pointer;Size:ptruint);
 Procedure Freememory(p:pointer;Size:ptruint);