paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 10:42:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

FV: use DOSDelay() on all Amiga platforms

Browse Source 
git-svn-id: trunk@28565 -
This commit is contained in:
Károly Balogh 2014-08-31 17:41:01 +00:00
parent 1c6696a7fe
commit 6873588b0f
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fv/src/drivers.pas
View File

@ -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}

2
packages/morphunits/src/amigados.pas
View File

@ -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';