paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:49:12 +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 ***************}

8
rtl/macos/system.pp
View File

@ -268,7 +268,7 @@ Sys_ETXTBSY = 26; { Text file busy. The new process was
or while the pure procedure file was being or while the pure procedure file was being
executed an open(2) call requested write access executed an open(2) call requested write access
requested write access. requested write access.
(Probably not applicable on macos)} (Probably not applicable on macos)}
Sys_EFBIG = 27; { File too large } Sys_EFBIG = 27; { File too large }
Sys_ENOSPC = 28; { No space left on device } Sys_ENOSPC = 28; { No space left on device }
Sys_ESPIPE = 29; { Illegal seek } Sys_ESPIPE = 29; { Illegal seek }
@ -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