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

* error 204 if trying to free too much memory of heap top !

Browse Source
This commit is contained in:
pierre 1999-04-19 11:53:13 +00:00
parent ffc582a561
commit 9e3e3d9415
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/heap.inc
View File

@ -782,6 +782,8 @@ begin
{ end of the heap ? } { end of the heap ? }
if p+size>=heapptr then if p+size>=heapptr then
begin begin
if p+size>heapptr then
HandleError(204);
heapptr:=p; heapptr:=p;
{internal_memavail:=internal_heapsize; {internal_memavail:=internal_heapsize;
THIS IS WRONG !!!!!! PM THIS IS WRONG !!!!!! PM
@ -1089,7 +1091,10 @@ end;
{ {
$Log$ $Log$
Revision 1.8 1999-04-19 11:11:39 pierre Revision 1.9 1999-04-19 11:53:13 pierre
* error 204 if trying to free too much memory of heap top !
Revision 1.8 1999/04/19 11:11:39 pierre
* wrong statement in freemem removed : corrupted memavail result * wrong statement in freemem removed : corrupted memavail result
Revision 1.7 1999/03/18 11:21:16 peter Revision 1.7 1999/03/18 11:21:16 peter