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

* fixed internal_memavail counting for tryresizemem

Browse Source
This commit is contained in:
peter 2000-02-02 11:12:29 +00:00
parent 0fc3f2e559
commit 6bbb440811
1 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/heap.inc
View File

@ -536,6 +536,7 @@ end;
function SysTryResizeMem(var p:pointer;size : longint):boolean;
var
oldsize,
currsize,
foundsize,
sizeleft,
@ -550,6 +551,7 @@ begin
{ fix p to point to the heaprecord }
pcurr:=pfreerecord(pointer(p)-sizeof(theaprecord));
currsize:=pcurr^.size and sizemask;
oldsize:=currsize;
wasbeforeheapend:=(pcurr^.size and beforeheapendmask)<>0;
{ is the allocated block still correct? }
if currsize=size then
@ -655,6 +657,7 @@ begin
pcurr^.size:=size or usedmask or (pcurr^.size and beforeheapendmask);
end;
end;
dec(internal_memavail,size-oldsize);
SysTryResizeMem:=true;
end;
@ -672,16 +675,14 @@ begin
begin
if p<>nil then
MemoryManager.FreeMem(p);
SysReallocmem:=P;
exit;
end;
end
else
{ Allocate a new block? }
if p=nil then
begin
p:=MemoryManager.GetMem(size);
SysReallocmem:=P;
exit;
end;
end
else
{ Resize block }
if not SysTryResizeMem(p,size) then
begin
@ -804,7 +805,10 @@ end;
{
$Log$
Revision 1.32 2000-01-31 23:41:30 peter
Revision 1.33 2000-02-02 11:12:29 peter
* fixed internal_memavail counting for tryresizemem
Revision 1.32 2000/01/31 23:41:30 peter
* reallocmem fixed for freemem() call when size=0
Revision 1.31 2000/01/24 23:56:10 peter