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

add uses dos for OS_DOS

Browse Source
This commit is contained in:
peter 2004-12-23 16:19:57 +00:00
parent 7377bbf1c9
commit 27880c29fd
1 changed files with 25 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
fv/drivers.pas
View File

@ -63,6 +63,10 @@ USES
Windows, { Standard unit }
{$ENDIF}
{$ifdef OS_DOS}
Dos,
{$endif OS_DOS}
{$IFDEF OS_OS2} { OS2 CODE }
{$IFDEF PPC_Virtual} { VIRTUAL PASCAL UNITS }
OS2Def, OS2Base, OS2PMAPI, { Standard units }
@ -748,17 +752,15 @@ var
procedure GiveUpTimeSlice;
{$ifdef GO32V2}{$define DOS}{$endif}
{$ifdef TP}{$define DOS}{$endif}
{$ifdef DOS}
{$IFDEF OS_DOS}
var r: registers;
begin
Intr ($28, R); (* This is supported everywhere. *)
r.ax:=$1680;
intr($2f,r);
end;
{$endif}
{$ifdef Unix}
{$ENDIF}
{$IFDEF OS_UNIX}
var
req,rem : timespec;
begin
@ -766,13 +768,13 @@ begin
req.tv_nsec:=10000000;{ 10 ms }
{$ifdef ver1_0}nanosleep(req,rem){$else}fpnanosleep(@req,@rem){$endif};
end;
{$endif}
{$IFDEF OS2}
{$ENDIF}
{$IFDEF OS_OS2}
begin
DosSleep (5);
end;
{$ENDIF}
{$ifdef Win32}
{$IFDEF OS_WINDOWS}
begin
{ if the return value of this call is non zero then
it means that a ReadFileEx or WriteFileEx have completed
@ -784,14 +786,17 @@ begin
if we use them }
end;
end;
{$endif}
{$undef DOS}
{$ifdef netwlibc} {$define netware} {$endif}
{$ifdef netware}
begin
Delay (10);
end;
{$endif}
{$ENDIF}
{$IFDEF OS_NETWARE_LIBC}
begin
Delay (10);
end;
{$ENDIF}
{$IFDEF OS_NETWARE_CLIB}
begin
Delay (10);
end;
{$ENDIF}
{---------------------------------------------------------------------------}
@ -1528,7 +1533,10 @@ BEGIN
END.
{
$Log$
Revision 1.50 2004-12-22 15:27:30 peter
Revision 1.51 2004-12-23 16:19:57 peter
add uses dos for OS_DOS
Revision 1.50 2004/12/22 15:27:30 peter
* call giveuptimeslice to prevent busy loop with idle
Revision 1.49 2004/12/18 16:18:47 peter