paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:29:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed destination parameter of getmem/getmemory from "var" to "out"

Browse Source 
(mantis #11907)

git-svn-id: trunk@13036 -
This commit is contained in:
Jonas Maebe 2009-04-25 09:57:29 +00:00
parent 4771ca3ce1
commit 533f533868
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/heap.inc
View File

@ -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;

4
rtl/inc/heaph.inc
View File

@ -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 Getmem(Out p:pointer;Size:ptruint);
Procedure Getmemory(Var 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);