Quellcode durchsuchen

m68k-amiga: make it possible to disable functions newer than OS 2.0 (v37+)

git-svn-id: trunk@44733 -
Károly Balogh vor 5 Jahren
Ursprung
Commit
36e4db15bc
2 geänderte Dateien mit 17 neuen und 7 gelöschten Zeilen
  1. 4 7
      rtl/amiga/m68k/doslibf.inc
  2. 13 0
      rtl/amiga/m68k/execf.inc

+ 4 - 7
rtl/amiga/m68k/doslibf.inc

@@ -666,6 +666,9 @@ function SameDevice(lock1: LongInt location 'd1';
                     lock2: LongInt location 'd2'): LongBool;
                     lock2: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 984;
 SysCall AOS_DOSBase 984;
 
 
+// these functions are only available on v39+ (OS Release 3.0+)
+{$IFNDEF AMIGA_V2_0_ONLY}
+
 procedure ExAllEnd(lock   : LongInt       location 'd1';
 procedure ExAllEnd(lock   : LongInt       location 'd1';
                    buffer : PExAllData    location 'd2';
                    buffer : PExAllData    location 'd2';
                    size   : LongInt       location 'd3';
                    size   : LongInt       location 'd3';
@@ -677,12 +680,6 @@ function SetOwner(name      : PChar   location 'd1';
                   owner_info: LongInt location 'd2'): LongBool;
                   owner_info: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 996;
 SysCall AOS_DOSBase 996;
 
 
-function AddSegmentTagList(tags: PTagItem location 'a0'): LongInt;
-SysCall AOS_DOSBase 1002;
-
-function FindSegmentTagList(tags: PTagItem location 'a0'): PSegment;
-SysCall AOS_DOSBase 1008;
-
+{$ENDIF AMIGA_V2_0_ONLY}
 {$ENDIF AMIGA_V1_2_ONLY}
 {$ENDIF AMIGA_V1_2_ONLY}
 {$ENDIF AMIGA_V1_0_ONLY}
 {$ENDIF AMIGA_V1_0_ONLY}
-

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

@@ -394,6 +394,13 @@ SysCall AOS_ExecBase 684;
 procedure FreeVec(memoryBlock: Pointer location 'a1');
 procedure FreeVec(memoryBlock: Pointer location 'a1');
 SysCall AOS_ExecBase 690;
 SysCall AOS_ExecBase 690;
 
 
+// these functions are only available v39+ (OS Release 3.0+)
+{$IFNDEF AMIGA_V2_0_ONLY}
+
+{ Pool functions seem to be there in OS2.0 SDK, but not
+  publicly available/documented? Later NDK 3.9 marks them as
+  v39+ (KB) }
+
 function CreatePool(requirements: Cardinal location 'd0';
 function CreatePool(requirements: Cardinal location 'd0';
                     puddleSize  : Cardinal location 'd1';
                     puddleSize  : Cardinal location 'd1';
                     threshSize  : Cardinal location 'd2'): Pointer;
                     threshSize  : Cardinal location 'd2'): Pointer;
@@ -411,6 +418,8 @@ procedure FreePooled(poolHeader: Pointer  location 'a0';
                       memSize   : Cardinal location 'd0');
                       memSize   : Cardinal location 'd0');
 SysCall AOS_ExecBase 714;
 SysCall AOS_ExecBase 714;
 
 
+{$ENDIF}
+
 function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;
 function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;
 SysCall AOS_ExecBase 720;
 SysCall AOS_ExecBase 720;
 
 
@@ -430,6 +439,9 @@ procedure CachePostDMA(address   : Pointer  location 'a0';
                        flags     : Cardinal location 'd0');
                        flags     : Cardinal location 'd0');
 SysCall AOS_ExecBase 768;
 SysCall AOS_ExecBase 768;
 
 
+// these functions are only available v39+ (OS Release 3.0+)
+{$IFNDEF AMIGA_V2_0_ONLY}
+
 procedure AddMemHandler(memhand: PInterrupt location 'a1');
 procedure AddMemHandler(memhand: PInterrupt location 'a1');
 SysCall AOS_ExecBase 774;
 SysCall AOS_ExecBase 774;
 
 
@@ -439,6 +451,7 @@ SysCall AOS_ExecBase 780;
 function ObtainQuickVector(interruptCode: Pointer location 'a0'): Cardinal;
 function ObtainQuickVector(interruptCode: Pointer location 'a0'): Cardinal;
 SysCall AOS_ExecBase 786;
 SysCall AOS_ExecBase 786;
 
 
+{$ENDIF AMIGA_V2_0_ONLY}
 {$ENDIF AMIGA_V1_2_ONLY}
 {$ENDIF AMIGA_V1_2_ONLY}
 {$ENDIF AMIGA_V1_0_ONLY}
 {$ENDIF AMIGA_V1_0_ONLY}