paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 16:10:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed reallocmem which didn't work anymore and thus broke a lot

Browse Source 
of objfpc/delphi code
This commit is contained in:
peter 2000-01-24 23:56:10 +00:00
parent b1759b1d5f
commit 9be202fd38
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/heap.inc
View File

@ -647,7 +647,8 @@ begin
MemoryManager.FreeMem(p);
p:=p2;
end
else doMove := true;
else
doMove := true;
internSysReAllocMem:=p;
exit;
end;
@ -685,8 +686,10 @@ begin
end;
function SysReAllocMem(var p:pointer;size : longint):pointer;
const doMove: boolean = true;
var
doMove: boolean;
begin
doMove:=true;
SysReAllocMem := internSysReallocMem(p,size,doMove);
end;
@ -800,7 +803,11 @@ end;
{
$Log$
Revision 1.30 2000-01-20 12:35:35 jonas
Revision 1.31 2000-01-24 23:56:10 peter
* fixed reallocmem which didn't work anymore and thus broke a lot
of objfpc/delphi code
Revision 1.30 2000/01/20 12:35:35 jonas
* fixed problem with reallocmem and heaptrc
Revision 1.29 2000/01/07 16:41:34 daniel