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

+ Fixed sysreallocmem

Browse Source
This commit is contained in:
michael 1999-11-10 22:29:51 +00:00
parent 84ac969e6b
commit adb19684e1
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/heap.inc
View File

@ -532,7 +532,8 @@ begin
{ Allocate a new block? }
if p=nil then
begin
SysReAllocMem:=MemoryManager.GetMem(size);
p:=MemoryManager.GetMem(size);
SysReallocmem:=P;
exit;
end;
{ fix needed size }
@ -607,7 +608,8 @@ begin
if p2<>nil then
Move(p^,p2^,size);
MemoryManager.Freemem(p);
SysReAllocMem:=p2;
p:=p2;
SysReAllocMem:=p;
exit;
end;
currsize:=pcurr^.size and sizemask;
@ -750,7 +752,10 @@ end;
{
$Log$
Revision 1.22 1999-11-01 13:56:50 peter
Revision 1.23 1999-11-10 22:29:51 michael
+ Fixed sysreallocmem
Revision 1.22 1999/11/01 13:56:50 peter
* freemem,reallocmem now get var argument
Revision 1.21 1999/10/30 17:39:05 peter