浏览代码

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 年之前
父节点
当前提交
2f8fe76bed
共有 1 个文件被更改,包括 14 次插入6 次删除
  1. 14 6
      rtl/amiga/system.pp

+ 14 - 6
rtl/amiga/system.pp

@@ -49,12 +49,20 @@ interface
 
 const
 {$if defined(AMIGA_V1_0_ONLY)}
-  OS_MINVERSION = 0;
+  AMIGA_OS_MINVERSION = 0;
 {$else}
 {$if defined(AMIGA_V1_2_ONLY)}
-  OS_MINVERSION = 33;
+  AMIGA_OS_MINVERSION = 33;
 {$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}
 
@@ -267,13 +275,13 @@ begin
     AOS_wbMsg:=GetMsg(@self^.pr_MsgPort);
   end;
 
-  AOS_DOSBase:=OpenLibrary('dos.library',OS_MINVERSION);
+  AOS_DOSBase:=OpenLibrary('dos.library',AMIGA_OS_MINVERSION);
   if AOS_DOSBase=nil then Halt(1);
 {$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);
 {$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);
 
 {$IFDEF AMIGAOS4}