Browse Source

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

git-svn-id: trunk@44735 -
Károly Balogh 5 years ago
parent
commit
c577e290d1
2 changed files with 11 additions and 2 deletions
  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
   Please note that this code doesn't aim to be API feature complete, just
   functional enough for the RTL code.
   functional enough for the RTL code.
 }
 }
-
+{$IFNDEF AMIGA_V2_0_ONLY}
 
 
 function AllocVec(byteSize    : Cardinal;
 function AllocVec(byteSize    : Cardinal;
                   requirements: Cardinal): Pointer; public name '_fpc_amiga_allocvec';
                   requirements: Cardinal): Pointer; public name '_fpc_amiga_allocvec';
@@ -46,6 +46,8 @@ begin
     end;
     end;
 end;
 end;
 
 
+{$ENDIF NOT AMIGA_V2_0_ONLY}
+
 type
 type
   TAmigaLegacyPoolEntry = record
   TAmigaLegacyPoolEntry = record
     pe_node: TMinNode;
     pe_node: TMinNode;
@@ -131,6 +133,8 @@ begin
     end;
     end;
 end;
 end;
 
 
+{$IFNDEF AMIGA_V2_0_ONLY}
+
 procedure StackSwap(newStack: PStackSwapStruct); assembler; nostackframe; public name '_fpc_amiga_stackswap';
 procedure StackSwap(newStack: PStackSwapStruct); assembler; nostackframe; public name '_fpc_amiga_stackswap';
 asm
 asm
     move.l   a6,-(sp)
     move.l   a6,-(sp)
@@ -180,3 +184,5 @@ begin
     at least in the way it's currently used in athreads. }
     at least in the way it's currently used in athreads. }
   ObtainSemaphore(sigSem);
   ObtainSemaphore(sigSem);
 end;
 end;
+
+{$ENDIF NOT AMIGA_V2_0_ONLY}

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

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