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

* fix for web bug #1727 from Peter (corrected)

Browse Source
This commit is contained in:
Jonas Maebe 2002-01-02 13:43:09 +00:00
parent 4c315e6db0
commit e52fa07468
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/heap.inc
View File

@ -996,7 +996,6 @@ begin
if (hp=heapptr) then if (hp=heapptr) then
begin begin
inc(foundsize,heapend-heapptr); inc(foundsize,heapend-heapptr);
wasbeforeheapend:=true;
break; break;
end; end;
if (hp^.size and usedmask)<>0 then if (hp^.size and usedmask)<>0 then
@ -1017,6 +1016,8 @@ begin
begin begin
inc(heapptr,size-foundsize); inc(heapptr,size-foundsize);
foundsize:=size; foundsize:=size;
if (heapend-heapptr)<sizeof(tfreerecord) then
wasbeforeheapend:=true;
break; break;
end; end;
s:=hp^.size and sizemask; s:=hp^.size and sizemask;
@ -1153,7 +1154,7 @@ var
pcurr : pfreerecord; pcurr : pfreerecord;
begin begin
{$ifdef DUMPGROW} {$ifdef DUMPGROW}
writeln('grow ',size); writeln('growheap(',size,') allocating ',(size+$ffff) and $ffff0000);
DumpBlocks; DumpBlocks;
{$endif} {$endif}
{ Allocate by 64K size } { Allocate by 64K size }
@ -1255,8 +1256,8 @@ end;
{ {
$Log$ $Log$
Revision 1.10 2001-12-31 11:41:06 jonas Revision 1.11 2002-01-02 13:43:09 jonas
* fix for web bug 1727 from Peter * fix for web bug 1727 from Peter (corrected)
Revision 1.9 2001/12/03 21:39:20 peter Revision 1.9 2001/12/03 21:39:20 peter
* freemem(var) -> freemem(value) * freemem(var) -> freemem(value)