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

* corrected a bug introduced by my last change

Browse Source 
(allocating 1Mb but only using a small part !!)
This commit is contained in:
pierre 1998-08-25 14:15:51 +00:00
parent 27c439c940
commit d5df96ef6a
2 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/i386/heap.inc
View File

@ -945,7 +945,11 @@ begin
{ Allocate by 64K size }
{ first try 1Meg }
if size<$100000 then
NewPos:=Sbrk($100000)
begin
NewPos:=Sbrk($100000);
if NewPos > 0 then
size:=$100000;
end
else
NewPos:=SBrk(size);
{ try again }
@ -1064,7 +1068,11 @@ end;
{
$Log$
Revision 1.15 1998-08-24 14:44:04 pierre
Revision 1.16 1998-08-25 14:15:51 pierre
* corrected a bug introduced by my last change
(allocating 1Mb but only using a small part !!)
Revision 1.15 1998/08/24 14:44:04 pierre
* bug allocation of more than 1 MB failed corrected
Revision 1.14 1998/07/30 13:26:21 michael

12
rtl/m68k/heap.inc
View File

@ -950,7 +950,11 @@ begin
{ Allocate by 64K size }
{ first try 1Meg }
if Size<$100000 then
NewPos:=Sbrk($100000)
begin
NewPos:=Sbrk($100000);
if NewPos > 0 then
Size:=$100000;
end
else
NewPos:=Sbrk(size);
if NewPos=-1 then
@ -1070,7 +1074,11 @@ end;
{
$Log$
Revision 1.6 1998-08-24 14:44:05 pierre
Revision 1.7 1998-08-25 14:15:53 pierre
* corrected a bug introduced by my last change
(allocating 1Mb but only using a small part !!)
Revision 1.6 1998/08/24 14:44:05 pierre
* bug allocation of more than 1 MB failed corrected
Revision 1.5 1998/08/17 12:27:17 carl