paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 13:30:42 +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

9
rtl/inc/heap.inc
View File

@ -732,7 +732,7 @@ begin
if size<=GrowHeapSize1 then
begin
NewPos:=Sbrk(GrowHeapSize1);
if NewPos>0 then
if NewPos<>-1 then
size:=GrowHeapSize1;
end
else
@ -740,7 +740,7 @@ begin
if size<=GrowHeapSize2 then
begin
NewPos:=Sbrk(GrowHeapSize2);
if NewPos>0 then
if NewPos<>-1 then
size:=GrowHeapSize2;
end
{ else alloate the needed bytes }
@ -807,7 +807,10 @@ end;
{
$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
data to the new allocated pointer