git-svn-id: trunk@28565 -
@@ -825,11 +825,7 @@ end;
{$IFDEF OS_AMIGA}
begin
{ AmigaOS Delay() wait's argument in 1/50 seconds }
- {$IFDEF AROS}
DOSDelay(2);
- {$ELSE}
- AmigaDOS.Delay(2);
- {$ENDIF}
end;
{$ENDIF OS_AMIGA}
@@ -1486,7 +1486,7 @@ SysCall MOS_DOSBase 186;
function DateStamp(date: PDateStamp location 'd1'): PDateStamp;
SysCall MOS_DOSBase 192;
-procedure Delay(timeout: LongInt location 'd1');
+procedure DOSDelay(timeout: LongInt location 'd1');
SysCall MOS_DOSBase 198;
function WaitForChar(file1 : LongInt location 'd1';