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

* fix for web bug #1727 from Peter

Browse Source
This commit is contained in:
Jonas Maebe 2001-12-31 11:41:06 +00:00
parent dc912b6358
commit d06ebc3fd1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/heap.inc
View File

@ -996,6 +996,7 @@ begin
if (hp=heapptr) then
begin
inc(foundsize,heapend-heapptr);
wasbeforeheapend:=true;
break;
end;
if (hp^.size and usedmask)<>0 then
@ -1254,7 +1255,10 @@ end;
{
$Log$
Revision 1.9 2001-12-03 21:39:20 peter
Revision 1.10 2001-12-31 11:41:06 jonas
* fix for web bug 1727 from Peter
Revision 1.9 2001/12/03 21:39:20 peter
* freemem(var) -> freemem(value)
Revision 1.8 2001/10/25 21:22:34 peter