Browse Source

FV: use DOSDelay() on all Amiga platforms

git-svn-id: trunk@28565 -
Károly Balogh 11 years ago
parent
commit
6873588b0f
2 changed files with 1 additions and 5 deletions
  1. 0 4
      packages/fv/src/drivers.pas
  2. 1 1
      packages/morphunits/src/amigados.pas

+ 0 - 4
packages/fv/src/drivers.pas

@@ -825,11 +825,7 @@ end;
 {$IFDEF OS_AMIGA}
 {$IFDEF OS_AMIGA}
   begin
   begin
     { AmigaOS Delay() wait's argument in 1/50 seconds }
     { AmigaOS Delay() wait's argument in 1/50 seconds }
-    {$IFDEF AROS}
     DOSDelay(2);
     DOSDelay(2);
-    {$ELSE}
-    AmigaDOS.Delay(2);
-    {$ENDIF}
   end;
   end;
 {$ENDIF OS_AMIGA}
 {$ENDIF OS_AMIGA}
 
 

+ 1 - 1
packages/morphunits/src/amigados.pas

@@ -1486,7 +1486,7 @@ SysCall MOS_DOSBase 186;
 function DateStamp(date: PDateStamp location 'd1'): PDateStamp;
 function DateStamp(date: PDateStamp location 'd1'): PDateStamp;
 SysCall MOS_DOSBase 192;
 SysCall MOS_DOSBase 192;
 
 
-procedure Delay(timeout: LongInt location 'd1');
+procedure DOSDelay(timeout: LongInt location 'd1');
 SysCall MOS_DOSBase 198;
 SysCall MOS_DOSBase 198;
 
 
 function WaitForChar(file1  : LongInt location 'd1';
 function WaitForChar(file1  : LongInt location 'd1';