paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:06:08 +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? } { Allocate a new block? }
if p=nil then if p=nil then
begin begin
SysReAllocMem:=MemoryManager.GetMem(size); p:=MemoryManager.GetMem(size);
SysReallocmem:=P;
exit; exit;
end; end;
{ fix needed size } { fix needed size }
@ -607,7 +608,8 @@ begin
if p2<>nil then if p2<>nil then
Move(p^,p2^,size); Move(p^,p2^,size);
MemoryManager.Freemem(p); MemoryManager.Freemem(p);
SysReAllocMem:=p2; p:=p2;
SysReAllocMem:=p;
exit; exit;
end; end;
currsize:=pcurr^.size and sizemask; currsize:=pcurr^.size and sizemask;
@ -750,7 +752,10 @@ end;
{ {
$Log$ $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 * freemem,reallocmem now get var argument
Revision 1.21 1999/10/30 17:39:05 peter Revision 1.21 1999/10/30 17:39:05 peter