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

* fixed wrong check when allocation of a block > 1mb failed

Browse Source
This commit is contained in:
peter 2003-09-28 12:43:48 +00:00
parent 94a60f4975
commit 36fd13c639
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/heap.inc
View File

@ -1157,14 +1157,14 @@ begin
if NewPos<>nil then if NewPos<>nil then
size:=GrowHeapSize2; size:=GrowHeapSize2;
end end
{ else alloate the needed bytes } { else allocate the needed bytes }
else else
NewPos:=SBrk(size); NewPos:=SBrk(size);
{ try again } { try again }
if NewPos=nil then if NewPos=nil then
begin begin
NewPos:=Sbrk(size); NewPos:=Sbrk(size);
if NewPos<>nil then if NewPos=nil then
begin begin
if ReturnNilIfGrowHeapFails then if ReturnNilIfGrowHeapFails then
GrowHeap:=1 GrowHeap:=1
@ -1265,7 +1265,10 @@ end;
{ {
$Log$ $Log$
Revision 1.22 2003-09-27 11:52:35 peter Revision 1.23 2003-09-28 12:43:48 peter
* fixed wrong check when allocation of a block > 1mb failed
Revision 1.22 2003/09/27 11:52:35 peter
* sbrk returns pointer * sbrk returns pointer
Revision 1.21 2003/05/23 14:53:48 peter Revision 1.21 2003/05/23 14:53:48 peter