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

m68k-amiga: startup code now uses legacyexech, instead of explicitly declaring legacy support functions it needs

Browse Source 
git-svn-id: trunk@44565 -
This commit is contained in:
Károly Balogh 2020-04-04 13:22:46 +00:00
parent 8d690546f3
commit 8816a0b601
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/amiga/m68k/si_prc.pp
View File

@ -32,16 +32,13 @@ var
{$if defined(AMIGA_V1_0_ONLY) or defined(AMIGA_V1_2_ONLY)} {$if defined(AMIGA_V1_0_ONLY) or defined(AMIGA_V1_2_ONLY)}
{$define AMIGA_LEGACY} {$define AMIGA_LEGACY}
{$include legacyexech.inc}
{$endif} {$endif}
{$ifdef AMIGA_LEGACY} {$ifdef AMIGA_LEGACY}
var var
args: pointer; public name '__fpc_args'; args: pointer; public name '__fpc_args';
arglen: dword; public name '__fpc_arglen'; arglen: dword; public name '__fpc_arglen';
function AllocVec(byteSize : Cardinal; requirements: Cardinal): Pointer; external name '_fpc_amiga_allocvec';
procedure FreeVec(memoryBlock: Pointer); external name '_fpc_amiga_freevec';
procedure StackSwap(newStack: PStackSwapStruct); external name '_fpc_amiga_stackswap';
{$endif} {$endif}
var var