paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 09:58:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed getmem call with wrong size from reallocmem

Browse Source
This commit is contained in:
peter 1999-12-13 21:04:46 +00:00
parent 57b5128e32
commit a3749c8bf3
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

@ -536,6 +536,7 @@ end;
function SysReAllocMem(var p:pointer;size : longint):pointer;
var
orgsize,
currsize,
foundsize,
sizeleft,
@ -554,6 +555,7 @@ begin
exit;
end;
{ fix needed size }
orgsize:=size;
size:=(size+sizeof(theaprecord)+(blocksize-1)) and (not (blocksize-1));
{ fix p to point to the heaprecord }
pcurr:=pfreerecord(pointer(p)-sizeof(theaprecord));
@ -630,9 +632,9 @@ begin
else
begin
{ we need to call getmem/move/freemem }
p2:=MemoryManager.GetMem(size);
p2:=MemoryManager.GetMem(orgsize);
if p2<>nil then
Move(p^,p2^,size);
Move(p^,p2^,orgsize);
MemoryManager.Freemem(p);
p:=p2;
SysReAllocMem:=p;
@ -781,7 +783,10 @@ end;
{
$Log$
Revision 1.25 1999-12-01 22:57:31 peter
Revision 1.26 1999-12-13 21:04:46 peter
* fixed getmem call with wrong size from reallocmem
Revision 1.25 1999/12/01 22:57:31 peter
* cmdline support
Revision 1.24 1999/11/14 21:34:21 peter