paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:29:21 +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;
external 'InterfaceLib' name 'FreeMem';
procedure MaxApplZone;
external 'InterfaceLib' name 'MaxApplZone';
{************** from OSUtils.p ***************}

6
rtl/macos/system.pp
View File

@ -1140,6 +1140,7 @@ begin
Halt(3); //exit code 3 according to MPW
{ Setup heap }
MaxApplZone;
if Mac_FreeMem - intern_heapsize < 30000 then
Halt(3); //exit code 3 according to MPW
theHeap:= Sbrk(intern_heapsize);
@ -1167,7 +1168,10 @@ end.
{
$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
* misc internal changes