Forráskód Böngészése

m68k-amiga: enable certain legacy exec support functions only when compiling for OS v2.0

git-svn-id: trunk@44735 -
Károly Balogh 5 éve
szülő
commit
c577e290d1
2 módosított fájl, 11 hozzáadás és 2 törlés
  1. 7 1
      rtl/amiga/m68k/legacyexec.inc
  2. 4 1
      rtl/amiga/m68k/legacyexech.inc

+ 7 - 1
rtl/amiga/m68k/legacyexec.inc

@@ -21,7 +21,7 @@
   Please note that this code doesn't aim to be API feature complete, just
   functional enough for the RTL code.
 }
-
+{$IFNDEF AMIGA_V2_0_ONLY}
 
 function AllocVec(byteSize    : Cardinal;
                   requirements: Cardinal): Pointer; public name '_fpc_amiga_allocvec';
@@ -46,6 +46,8 @@ begin
     end;
 end;
 
+{$ENDIF NOT AMIGA_V2_0_ONLY}
+
 type
   TAmigaLegacyPoolEntry = record
     pe_node: TMinNode;
@@ -131,6 +133,8 @@ begin
     end;
 end;
 
+{$IFNDEF AMIGA_V2_0_ONLY}
+
 procedure StackSwap(newStack: PStackSwapStruct); assembler; nostackframe; public name '_fpc_amiga_stackswap';
 asm
     move.l   a6,-(sp)
@@ -180,3 +184,5 @@ begin
     at least in the way it's currently used in athreads. }
   ObtainSemaphore(sigSem);
 end;
+
+{$ENDIF NOT AMIGA_V2_0_ONLY}

+ 4 - 1
rtl/amiga/m68k/legacyexech.inc

@@ -16,9 +16,11 @@
 
 {* exec.library *}
 
+{$IFNDEF AMIGA_V2_0_ONLY}
 function AllocVec(byteSize    : Cardinal;
                   requirements: Cardinal): Pointer; external name '_fpc_amiga_allocvec';
 procedure FreeVec(memoryBlock: Pointer); external name '_fpc_amiga_freevec';
+{$ENDIF}
 function CreatePool(requirements: Cardinal;
                     puddleSize  : Cardinal;
                     threshSize  : Cardinal): Pointer; external name '_fpc_amiga_createpool';
@@ -28,6 +30,7 @@ procedure FreePooled(poolHeader: Pointer;
                     memory    : Pointer;
                     memSize   : Cardinal); external name '_fpc_amiga_freepooled';
 procedure DeletePool(poolHeader: Pointer); external name '_fpc_amiga_deletepool';
-
+{$IFNDEF AMIGA_V2_0_ONLY}
 procedure StackSwap(newStack: PStackSwapStruct); external name '_fpc_amiga_stackswap';
 procedure ObtainSemaphoreShared(sigSem: PSignalSemaphore); external name '_fpc_amiga_obtainsemaphoreshared';
+{$ENDIF}