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

* avoid problems if sbrk returns negative values

Browse Source
This commit is contained in:
pierre 2000-03-10 12:41:21 +00:00
parent bba120a2fd
commit 6d213ac89b
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/heap.inc
View File

@ -732,7 +732,7 @@ begin
if size<=GrowHeapSize1 then if size<=GrowHeapSize1 then
begin begin
NewPos:=Sbrk(GrowHeapSize1); NewPos:=Sbrk(GrowHeapSize1);
if NewPos>0 then if NewPos<>-1 then
size:=GrowHeapSize1; size:=GrowHeapSize1;
end end
else else
@ -740,7 +740,7 @@ begin
if size<=GrowHeapSize2 then if size<=GrowHeapSize2 then
begin begin
NewPos:=Sbrk(GrowHeapSize2); NewPos:=Sbrk(GrowHeapSize2);
if NewPos>0 then if NewPos<>-1 then
size:=GrowHeapSize2; size:=GrowHeapSize2;
end end
{ else alloate the needed bytes } { else alloate the needed bytes }
@ -807,7 +807,10 @@ end;
{ {
$Log$ $Log$
Revision 1.34 2000-02-10 13:59:35 peter Revision 1.35 2000-03-10 12:41:21 pierre
* avoid problems if sbrk returns negative values
Revision 1.34 2000/02/10 13:59:35 peter
* fixed bug with reallocmem to use the wrong size when copying the * fixed bug with reallocmem to use the wrong size when copying the
data to the new allocated pointer data to the new allocated pointer
@ -872,4 +875,4 @@ end;
Revision 1.16 1999/09/17 17:14:12 peter Revision 1.16 1999/09/17 17:14:12 peter
+ new heap manager supporting delphi freemem(pointer) + new heap manager supporting delphi freemem(pointer)
} }