paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ compilation of unit 'drivers' fixed for the win16 target

Browse Source 
git-svn-id: trunk@37648 -
This commit is contained in:
nickysn 2017-12-01 19:58:15 +00:00
parent 48756d91b7
commit c4e036d647
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -66,6 +66,11 @@ USES
Windows, { Standard unit } Windows, { Standard unit }
{$ENDIF} {$ENDIF}
{$IFDEF OS_WIN16} { WIN16 CODE }
WinProcs, WinTypes, { Standard units }
Crt, { used for Delay() }
{$ENDIF}
{$ifdef OS_DOS} {$ifdef OS_DOS}
Dos, Dos,
{$endif OS_DOS} {$endif OS_DOS}
@ -750,6 +755,11 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetDosTicks:=GetTickCount div 55; GetDosTicks:=GetTickCount div 55;
end; end;
{$ENDIF OS_WINDOWS} {$ENDIF OS_WINDOWS}
{$IFDEF OS_WIN16}
begin
GetDosTicks:=GetTickCount div 55;
end;
{$ENDIF OS_WIN16}
{$IFDEF OS_DOS} {$IFDEF OS_DOS}
begin begin
GetDosTicks:=MemL[$40:$6c]; GetDosTicks:=MemL[$40:$6c];
@ -812,6 +822,11 @@ begin
end; end;
end; end;
{$ENDIF} {$ENDIF}
{$IFDEF OS_WIN16}
begin
Delay (10);
end;
{$ENDIF}
{$IFDEF OS_NETWARE_LIBC} {$IFDEF OS_NETWARE_LIBC}
begin begin
Delay (10); Delay (10);