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

rtl/amiga: add support for OSHeap, now default in legacy mode, optional define otherwise

Browse Source
This commit is contained in:
Karoly Balogh 2021-12-26 17:31:39 +01:00
parent 273a598be8
commit 53a67b34b5
1 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/amiga/system.pp
View File

@ -27,18 +27,15 @@ interface
{$define AMIGA_LEGACY}
{$endif}
{$ifdef AMIGA_LEGACY}
{$.define FPC_AMIGA_USE_TINYHEAP}
{$if defined(AMIGA_LEGACY) or defined(AMIGA_USE_OSHEAP)}
{$define FPC_AMIGA_USE_OSHEAP}
{$endif}
{$ifdef FPC_AMIGA_USE_TINYHEAP}
{$ifdef FPC_AMIGA_USE_OSHEAP}
{$define HAS_MEMORYMANAGER}
{$endif FPC_AMIGA_USE_TINYHEAP}
{$endif FPC_AMIGA_USE_OSHEAP}
{$I systemh.inc}
{$ifdef FPC_AMIGA_USE_TINYHEAP}
{$i tnyheaph.inc}
{$endif FPC_AMIGA_USE_TINYHEAP}
{$I osdebugh.inc}
{$if defined(cpum68k) and defined(fpusoft)}
@ -151,9 +148,9 @@ implementation
{$endif defined(cpum68k) and defined(fpusoft)}
{$I system.inc}
{$ifdef FPC_AMIGA_USE_TINYHEAP}
{$i tinyheap.inc}
{$endif FPC_AMIGA_USE_TINYHEAP}
{$ifdef FPC_AMIGA_USE_OSHEAP}
{$i osheap.inc}
{$endif FPC_AMIGA_USE_OSHEAP}
{$I osdebug.inc}
{$IFDEF AMIGAOS4}
@ -263,6 +260,12 @@ begin
randseed:=tmpTime.ds_tick;
end;
{$IFDEF FPC_AMIGA_USE_OSHEAP}
var
{ generated by the compiler based on the $MEMORY directive }
heapsize : PtrInt; external name '__heapsize';
{$ENDIF FPC_AMIGA_USE_OSHEAP}
{ AmigaOS specific startup }
procedure SysInitAmigaOS;
@ -291,7 +294,11 @@ begin
{$ENDIF}
{ Creating the memory pool for growing heap }
{$IFNDEF FPC_AMIGA_USE_OSHEAP}
ASYS_heapPool:=CreatePool(MEMF_ANY,growheapsize2,growheapsize1);
{$ELSE FPC_AMIGA_USE_OSHEAP}
ASYS_heapPool:=CreatePool(MEMF_ANY,min(heapsize,1024),min(heapsize div 2,1024));
{$ENDIF FPC_AMIGA_USE_OSHEAP}
if ASYS_heapPool=nil then Halt(1);
ASYS_heapSemaphore:=AllocPooled(ASYS_heapPool,sizeof(TSignalSemaphore));
if ASYS_heapSemaphore = nil then Halt(1);
@ -352,10 +359,10 @@ begin
SysInitAmigaOS;
{ Set up signals handlers }
// InstallSignals;
{$ifndef FPC_AMIGA_USE_TINYHEAP}
{$ifndef FPC_AMIGA_USE_OSHEAP}
{ Setup heap }
InitHeap;
{$endif FPC_AMIGA_USE_TINYHEAP}
{$endif FPC_AMIGA_USE_OSHEAP}
SysInitExceptions;
{$ifdef cpum68k}
fpc_cpucodeinit;