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

+ added call to MaxApplZone to have the whole MacOS heap available

Browse Source
This commit is contained in:
olle 2004-05-11 18:05:41 +00:00
parent e1a62208f0
commit 1f2eb63e83
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/macos/macostp.inc
View File

@ -107,6 +107,8 @@ external 'InterfaceLib';
function Mac_FreeMem: Longint; function Mac_FreeMem: Longint;
external 'InterfaceLib' name 'FreeMem'; external 'InterfaceLib' name 'FreeMem';
procedure MaxApplZone;
external 'InterfaceLib' name 'MaxApplZone';
{************** from OSUtils.p ***************} {************** from OSUtils.p ***************}

6
rtl/macos/system.pp
View File

@ -1140,6 +1140,7 @@ begin
Halt(3); //exit code 3 according to MPW Halt(3); //exit code 3 according to MPW
{ Setup heap } { Setup heap }
MaxApplZone;
if Mac_FreeMem - intern_heapsize < 30000 then if Mac_FreeMem - intern_heapsize < 30000 then
Halt(3); //exit code 3 according to MPW Halt(3); //exit code 3 according to MPW
theHeap:= Sbrk(intern_heapsize); theHeap:= Sbrk(intern_heapsize);
@ -1167,7 +1168,10 @@ end.
{ {
$Log$ $Log$
Revision 1.14 2004-04-29 11:27:36 olle Revision 1.15 2004-05-11 18:05:41 olle
+ added call to MaxApplZone to have the whole MacOS heap available
Revision 1.14 2004/04/29 11:27:36 olle
* do_read/do_write addr arg changed to pointer * do_read/do_write addr arg changed to pointer
* misc internal changes * misc internal changes