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

* added targets netware and netwlibc

Browse Source
This commit is contained in:
armin 2004-11-06 19:19:30 +00:00
parent 8ffe3c6a9e
commit 4c0921c557
3 changed files with 62 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
fv/drivers.pas
View File

@ -83,6 +83,13 @@ USES
{$endif}
{$ENDIF}
{$IFDEF OS_NETWARE_LIBC}
libc,
{$ENDIF}
{$IFDEF OS_NETWARE_CLIB}
nwserv,
{$ENDIF}
video,
SysMsg,
FVCommon, Objects; { GFV standard units }
@ -721,6 +728,21 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetDosTicks:=MemL[$40:$6c];
end;
{$ENDIF OS_DOS}
{$IFDEF OS_NETWARE_LIBC}
var
tv : TTimeVal;
tz : TTimeZone;
begin
fpGetTimeOfDay(tv,tz);
GetDosTicks:=((tv.tv_sec mod 86400) div 60)*1092+((tv.tv_Sec mod 60)*1000000+tv.tv_USec) div 549
end;
{$ENDIF}
{$IFDEF OS_NETWARE_CLIB}
begin
GetDosTicks := Nwserv.GetCurrentTicks;
end;
{$ENDIF}
{---------------------------------------------------------------------------}
{ UNINITIALIZED DOS/DPMI/WIN/NT/OS2 VARIABLES }
@ -1443,7 +1465,10 @@ BEGIN
END.
{
$Log$
Revision 1.43 2004-11-06 17:08:48 peter
Revision 1.44 2004-11-06 19:19:30 armin
* added targets netware and netwlibc
Revision 1.43 2004/11/06 17:08:48 peter
* drawing of tview merged from old fv code
}

19
fv/platform.inc
View File

@ -198,6 +198,20 @@ FOR FPC THESE ARE THE TRANSLATIONS
{$DEFINE OS_UNIX}
{$ENDIF}
{------------------------------------------------}
{ FPC Netware COMPILER changes operating system }
{------------------------------------------------}
{$IFDEF Netware}
{$UNDEF OS_DOS}
{$DEFINE OS_NETWARE}
{$IFDEF NETWARE_LIBC}
{$DEFINE OS_NETWARE_LIBC}
{$ELSE}
{$DEFINE OS_NETWARE_CLIB}
{$ENDIF}
{$DEFINE HasSysMsgUnit}
{$ENDIF}
{---------------------------------------------------------------------------}
{ FPC GO32V2 COMPILER changes operating system - Updated 27Aug98 LdB }
{---------------------------------------------------------------------------}
@ -386,7 +400,10 @@ FOR FPC THESE ARE THE TRANSLATIONS
{
$Log$
Revision 1.13 2004-11-04 20:57:58 peter
Revision 1.14 2004-11-06 19:19:31 armin
* added targets netware and netwlibc
Revision 1.13 2004/11/04 20:57:58 peter
sysmsgs is always available
Revision 1.12 2004/11/03 20:33:05 peter

19
fv/time.pas
View File

@ -185,6 +185,10 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
USES Dos;
{$endif OS_GO32}
{$ifdef OS_NETWARE}
USES Dos;
{$endif OS_GO32}
{***************************************************************************}
{ INTERFACE ROUTINES }
{***************************************************************************}
@ -317,6 +321,11 @@ BEGIN
{settime is dummy in Linux}
END;
{$endif OS_UNIX}
{$IFDEF OS_NETWARE}
BEGIN
{settime is dummy in Netware (Libc and Clib) }
END;
{$ENDIF OS_NETWARE}
{---------------------------------------------------------------------------}
{ GetTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Nov97 LdB }
@ -429,6 +438,11 @@ BEGIN
Dos.GetTime(Hour,Minute,Second,Sec100);
END;
{$endif OS_UNIX}
{$IFDEF OS_NETWARE}
BEGIN
Dos.GetTime(Hour,Minute,Second,Sec100);
END;
{$ENDIF OS_NETWARE}
{---------------------------------------------------------------------------}
{ MinutesToTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 19Jun97 LdB }
@ -453,7 +467,10 @@ END.
{
$Log$
Revision 1.12 2004-11-06 17:08:48 peter
Revision 1.13 2004-11-06 19:19:31 armin
* added targets netware and netwlibc
Revision 1.12 2004/11/06 17:08:48 peter
* drawing of tview merged from old fv code
}