+ made FV to compile on MorphOS

git-svn-id: trunk@11960 -

packages/fv/src/drivers.pas

@@ -97,6 +97,10 @@ USES
       nwserv,
    {$ENDIF}
 
+   {$IFDEF OS_AMIGA}
+      doslib,
+   {$ENDIF}
+
    video,
    SysMsg,
    FVCommon, Objects;                                 { GFV standard units }
@@ -767,6 +771,12 @@ var
     GetDosTicks := Nwserv.GetCurrentTicks;
   end;
 {$ENDIF}
+{$IFDEF OS_AMIGA}
+  begin
+{$WARNING FIXME: dummy implementation}
+    GetDosTicks:=-1;
+  end;
+{$ENDIF OS_AMIGA}
 
 
 procedure GiveUpTimeSlice;
@@ -815,6 +825,12 @@ end;
     Delay (10);
   end;
 {$ENDIF}
+{$IFDEF OS_AMIGA}
+  begin
+    { AmigaOS Delay() wait's argument in 1/50 seconds }
+    DOSLib.Delay (5);
+  end;
+{$ENDIF OS_AMIGA}
 
 
 {---------------------------------------------------------------------------}

packages/fv/src/platform.inc

@@ -367,6 +367,18 @@ FOR FPC THESE ARE THE TRANSLATIONS
   {$ENDIF}
 {$ENDIF}
 
+{ MorphOS has AmigaOS API, so define OS_AMIGA }
+{$IFDEF MORPHOS}
+  {$UNDEF OS_DOS}
+  {$DEFINE OS_AMIGA}
+  {$IFDEF CPU86}
+    {$UNDEF CPU86}
+  {$ENDIF}
+  {$IFNDEF CPUPPC}
+    {$DEFINE CPUPPC}
+  {$ENDIF}
+{$ENDIF}
+
 {---------------------------------------------------------------------------}
 {  FPC ATARI COMPILER changes op system and CPU type - Updated 27Aug98 LdB  }
 {---------------------------------------------------------------------------}

packages/fv/src/time.pas

@@ -186,7 +186,11 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
 
 {$ifdef OS_NETWARE}
   USES Dos;
-{$endif OS_GO32}
+{$endif OS_NETWARE}
+
+{$ifdef OS_AMIGA}
+  USES Dos;
+{$endif OS_AMIGA}
 
 {***************************************************************************}
 {                            INTERFACE ROUTINES                             }
@@ -325,6 +329,12 @@ BEGIN
  {settime is dummy in Netware (Libc and Clib) }
 END;
 {$ENDIF OS_NETWARE}
+{$IFDEF OS_AMIGA}
+BEGIN
+ { settime is dummy on Amiga }
+ { probably could be implemented, but it's low pri... (KB) }
+END;
+{$ENDIF OS_AMIGA}
 
 {---------------------------------------------------------------------------}
 {  GetTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Nov97 LdB           }
@@ -442,6 +452,11 @@ BEGIN
   Dos.GetTime(Hour,Minute,Second,Sec100);
 END;
 {$ENDIF OS_NETWARE}
+{$IFDEF OS_AMIGA}
+BEGIN
+  Dos.GetTime(Hour,Minute,Second,Sec100);
+END;
+{$ENDIF OS_AMIGA}
 
 {---------------------------------------------------------------------------}
 {  MinutesToTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 19Jun97 LdB     }