paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 22:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* *memORY overloads

Browse Source
This commit is contained in:
marco 2003-10-02 14:03:24 +00:00
parent de98fa5cb5
commit fcde2c3ffa
2 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/inc/heap.inc
View File

@ -205,6 +205,10 @@ begin
end;
end;
procedure GetMemory(Var p:pointer;Size:Longint);
begin
GetMem(p,size);
end;
procedure FreeMem(p:pointer;Size:Longint);
begin
@ -223,6 +227,10 @@ begin
end;
end;
procedure FreeMemory(p:pointer;Size:Longint);
begin
FreeMem(p,size);
end;
function MaxAvail:Longint;
begin
@ -315,6 +323,11 @@ begin
end;
end;
function FreeMemory(p:pointer):Longint;
begin
FreeMemory:=FreeMem(p);
end;
function GetMem(size:longint):pointer;
begin
@ -333,6 +346,11 @@ begin
end;
end;
function GetMemory(size:longint):pointer;
begin
GetMemory:=Getmem(size);
end;
function AllocMem(Size:Longint):pointer;
begin
@ -370,6 +388,12 @@ begin
end;
function ReAllocMemory(var p:pointer;Size:Longint):pointer;
begin
ReAllocMemory:=ReAllocMem(p,size);
end;
{$ifdef ValueGetmem}
{ Needed for calls from Assembler }
@ -1265,7 +1289,10 @@ end;
{
$Log$
Revision 1.23 2003-09-28 12:43:48 peter
Revision 1.24 2003-10-02 14:03:24 marco
* *memORY overloads
Revision 1.23 2003/09/28 12:43:48 peter
* fixed wrong check when allocation of a block > 1mb failed
Revision 1.22 2003/09/27 11:52:35 peter

10
rtl/inc/heaph.inc
View File

@ -62,7 +62,9 @@ Function Sysheapsize:longint;
{ Tp7 functions }
Procedure Getmem(Var p:pointer;Size:Longint);
Procedure Getmemory(Var p:pointer;Size:Longint);
Procedure Freemem(p:pointer;Size:Longint);
Procedure Freememory(p:pointer;Size:Longint);
Function memavail:Longint;
Function maxavail:Longint;
@ -72,9 +74,12 @@ Function heapsize:longint;
{ Delphi functions }
function GetMem(size:longint):pointer;
function GetMemory(size:longint):pointer;
function Freemem(p:pointer):longint;
function Freememory(p:pointer):longint;
function AllocMem(Size:Longint):pointer;
function ReAllocMem(var p:pointer;Size:Longint):pointer;
function ReAllocMemory(var p:pointer;Size:Longint):pointer;
{ Do nothing functions, are only here for tp7 compat }
Procedure mark(var p : pointer);
@ -90,7 +95,10 @@ Procedure AsmFreemem(var p:pointer);
{
$Log$
Revision 1.6 2002-10-30 20:39:13 peter
Revision 1.7 2003-10-02 14:03:24 marco
* *memORY overloads
Revision 1.6 2002/10/30 20:39:13 peter
* MemoryManager record has a field NeedLock if the wrapper functions
need to provide locking for multithreaded programs