Browse Source

m68k-amiga: add some defines, to disable part of OS headersin the RTL when compiling for OS1.x. this is to aid the implementation of future AmigaOS 1.x support

git-svn-id: trunk@44372 -
Károly Balogh 5 years ago
parent
commit
1aad73217c
3 changed files with 20 additions and 1 deletions
  1. 6 1
      rtl/amiga/m68k/doslibf.inc
  2. 9 0
      rtl/amiga/m68k/execf.inc
  3. 5 0
      rtl/amiga/m68k/utilf.inc

+ 6 - 1
rtl/amiga/m68k/doslibf.inc

@@ -129,6 +129,10 @@ function Execute(string1: PChar   location 'd1';
                  file2  : LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 222;
 
+// these functions are only available v36+ (OS Release 2.0+)
+{$IFNDEF AMIGA_V1_0_ONLY}
+{$IFNDEF AMIGA_V1_2_ONLY}
+
 function AllocDosObject(type1: Cardinal location 'd1';
                         tags : PTagItem location 'd2'): Pointer;
 SysCall AOS_DOSBase 228;
@@ -679,5 +683,6 @@ SysCall AOS_DOSBase 1002;
 function FindSegmentTagList(tags: PTagItem location 'a0'): PSegment;
 SysCall AOS_DOSBase 1008;
 
-
+{$ENDIF AMIGA_V1_2_ONLY}
+{$ENDIF AMIGA_V1_0_ONLY}
 

+ 9 - 0
rtl/amiga/m68k/execf.inc

@@ -306,6 +306,9 @@ function OpenLibrary(libname: PChar    location 'a1';
                      libver : Cardinal location 'd0'): Pointer;
 SysCall AOS_ExecBase 552;
 
+// these functions are only available v33+ (OS Release 1.2+)
+{$IFNDEF AMIGA_V1_0_ONLY}
+
 procedure InitSemaphore(sigSem: PSignalSemaphore location 'a0');
 SysCall AOS_ExecBase 558;
 
@@ -353,6 +356,9 @@ procedure CopyMemQuick(source: Pointer  location 'a0';
                        size  : Cardinal location 'd0');
 SysCall AOS_ExecBase 630;
 
+// these functions are only available v36+ (OS Release 2.0+)
+{$IFNDEF AMIGA_V1_2_ONLY}
+
 procedure CacheClearU;
 SysCall AOS_ExecBase 636;
 
@@ -433,4 +439,7 @@ SysCall AOS_ExecBase 780;
 function ObtainQuickVector(interruptCode: Pointer location 'a0'): Cardinal;
 SysCall AOS_ExecBase 786;
 
+{$ENDIF AMIGA_V1_2_ONLY}
+{$ENDIF AMIGA_V1_0_ONLY}
+
 { TODO: v45 functions (OS3.9) }

+ 5 - 0
rtl/amiga/m68k/utilf.inc

@@ -13,6 +13,9 @@
 
  **********************************************************************}
 
+{ these functions are only available v36+ (OS Release 2.0+) }
+{$IFNDEF AMIGA_V1_0_ONLY}
+{$IFNDEF AMIGA_V1_2_ONLY}
 
 function FindTagItem(tagVal : Cardinal location 'd0';
                      tagList: PTagItem location 'a0'): PTagItem;
@@ -163,3 +166,5 @@ SysCall AOS_UtilityBase 264;
 function GetUniqueID: Cardinal;
 SysCall AOS_UtilityBase 270;
 
+{$ENDIF AMIGA_V1_2_ONLY}
+{$ENDIF AMIGA_V1_0_ONLY}