Przeglądaj źródła

m68k-amiga: have an AMIGA prefix in OS_MINVERSION public constant, add OS 2.0 support, make sure we open v39 by default as it is needed by memory pool functions

git-svn-id: trunk@44734 -
Károly Balogh 5 lat temu
rodzic
commit
2f8fe76bed
1 zmienionych plików z 14 dodań i 6 usunięć
  1. 14 6
      rtl/amiga/system.pp

+ 14 - 6
rtl/amiga/system.pp

@@ -49,12 +49,20 @@ interface
 
 
 const
 const
 {$if defined(AMIGA_V1_0_ONLY)}
 {$if defined(AMIGA_V1_0_ONLY)}
-  OS_MINVERSION = 0;
+  AMIGA_OS_MINVERSION = 0;
 {$else}
 {$else}
 {$if defined(AMIGA_V1_2_ONLY)}
 {$if defined(AMIGA_V1_2_ONLY)}
-  OS_MINVERSION = 33;
+  AMIGA_OS_MINVERSION = 33;
 {$else}
 {$else}
-  OS_MINVERSION = 37;
+{$if defined(AMIGA_V2_0_ONLY)}
+  AMIGA_OS_MINVERSION = 37;
+{$else}
+{$ifndef cpupowerpc}
+  AMIGA_OS_MINVERSION = 39;
+{$else}
+  AMIGA_OS_MINVERSION = 50;
+{$endif}
+{$endif}
 {$endif}
 {$endif}
 {$endif}
 {$endif}
 
 
@@ -267,13 +275,13 @@ begin
     AOS_wbMsg:=GetMsg(@self^.pr_MsgPort);
     AOS_wbMsg:=GetMsg(@self^.pr_MsgPort);
   end;
   end;
 
 
-  AOS_DOSBase:=OpenLibrary('dos.library',OS_MINVERSION);
+  AOS_DOSBase:=OpenLibrary('dos.library',AMIGA_OS_MINVERSION);
   if AOS_DOSBase=nil then Halt(1);
   if AOS_DOSBase=nil then Halt(1);
 {$ifndef AMIGA_LEGACY}
 {$ifndef AMIGA_LEGACY}
-  AOS_UtilityBase:=OpenLibrary('utility.library',OS_MINVERSION);
+  AOS_UtilityBase:=OpenLibrary('utility.library',AMIGA_OS_MINVERSION);
   if AOS_UtilityBase=nil then Halt(1);
   if AOS_UtilityBase=nil then Halt(1);
 {$endif}
 {$endif}
-  AOS_IntuitionBase:=OpenLibrary('intuition.library',OS_MINVERSION); { amunits support kludge }
+  AOS_IntuitionBase:=OpenLibrary('intuition.library',AMIGA_OS_MINVERSION); { amunits support kludge }
   if AOS_IntuitionBase=nil then Halt(1);
   if AOS_IntuitionBase=nil then Halt(1);
 
 
 {$IFDEF AMIGAOS4}
 {$IFDEF AMIGAOS4}