Bläddra i källkod

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

git-svn-id: trunk@44565 -
Károly Balogh 5 år sedan
förälder
incheckning
8816a0b601
1 ändrade filer med 1 tillägg och 4 borttagningar
  1. 1 4
      rtl/amiga/m68k/si_prc.pp

+ 1 - 4
rtl/amiga/m68k/si_prc.pp

@@ -32,16 +32,13 @@ var
 
 {$if defined(AMIGA_V1_0_ONLY) or defined(AMIGA_V1_2_ONLY)}
 {$define AMIGA_LEGACY}
+{$include legacyexech.inc}
 {$endif}
 
 {$ifdef AMIGA_LEGACY}
 var
   args: pointer; public name '__fpc_args';
   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}
 
 var