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

powerpc-amiga: fix build after ecbd5840

Browse Source
This commit is contained in:
Karoly Balogh 2022-08-26 20:29:44 +02:00
parent 3f24bd3886
commit 3d9d80b007
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/amiga/system.pp
View File

@ -22,7 +22,9 @@ interface
{$define FPC_IS_SYSTEM}
{$define FPC_ANSI_TEXTFILEREC}
{$ifdef cpum68k}
{$define FPC_SYSTEM_HAS_BACKTRACESTR}
{$endif}
{$if defined(AMIGA_V1_0_ONLY) or defined(AMIGA_V1_2_ONLY)}
{$define AMIGA_LEGACY}
@ -148,6 +150,7 @@ implementation
{$define FPC_SYSTEM_HAS_extractFloat32Sign}
{$endif defined(cpum68k) and defined(fpusoft)}
{$ifdef FPC_SYSTEM_HAS_BACKTRACESTR}
var
_start: byte; external name '_start';
{ __text_size is provided by the linker }
@ -156,6 +159,7 @@ var
var
codestart: pointer;
codeend: pointer;
{$endif FPC_SYSTEM_HAS_BACKTRACESTR}
{$I system.inc}
{$ifdef FPC_AMIGA_USE_OSHEAP}
@ -361,8 +365,10 @@ begin
IsConsole := TRUE;
StackLength := CheckInitialStkLen(InitialStkLen);
StackBottom := StackTop - StackLength;
{$ifdef FPC_SYSTEM_HAS_BACKTRACESTR}
codestart := @_start;
codeend := pointer(ptruint(@_start) + ptruint(@__text_size));
{$endif FPC_SYSTEM_HAS_BACKTRACESTR}
{ OS specific startup }
AOS_wbMsg:=nil;
ASYS_origDir:=0;