From 8816a0b601383633d690c3cd51b2b9a4d6374441 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sat, 4 Apr 2020 13:22:46 +0000
Subject: [PATCH] m68k-amiga: startup code now uses legacyexech, instead of
explicitly declaring legacy support functions it needs
git-svn-id: trunk@44565 -
---
rtl/amiga/m68k/si_prc.pp | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/rtl/amiga/m68k/si_prc.pp b/rtl/amiga/m68k/si_prc.pp
index 855d5f8425..50aa395ab1 100644
--- a/rtl/amiga/m68k/si_prc.pp
+++ b/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