paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 06:01:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added target netwlibc

Browse Source
This commit is contained in:
armin 2004-09-16 22:08:13 +00:00
parent 19bbd2eb81
commit a3fa2bda10
2 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/whelp.pas
View File

@ -195,6 +195,9 @@ uses
{$IFDEF OS2}
DosCalls,
{$ENDIF OS2}
{$ifdef netwlibc}
Libc,
{$endif}
Strings,
WConsts;
@ -328,6 +331,16 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetDosTicks:=MemL[$40:$6c];
end;
{$endif go32v2}
{$ifdef netwlibc}
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}
procedure DisposeRecord(var R: TRecord);
begin
@ -957,7 +970,10 @@ end;
END.
{
$Log$
Revision 1.10 2003-09-27 14:03:45 peter
Revision 1.11 2004-09-16 22:08:13 armin
* added target netwlibc
Revision 1.10 2003/09/27 14:03:45 peter
* fixed for unix
Revision 1.9 2002/11/22 15:18:24 pierre

19
ide/wutils.pas
View File

@ -24,6 +24,14 @@ uses
{$ifdef win32}
windows,
{$endif win32}
{$ifdef netwlibc}
libc,
{$else}
{$ifdef netware}
nwserv,
{$endif}
{$endif}
{$ifdef Unix}
{$ifdef VER1_0}
linux,
@ -1351,6 +1359,12 @@ begin
end;
{$endif}
{$undef DOS}
{$ifdef netwlibc} {$define netware} {$endif}
{$ifdef netware}
begin
Delay (10);
end;
{$endif}
procedure RegisterWUtils;
begin
@ -1364,7 +1378,10 @@ BEGIN
END.
{
$Log$
Revision 1.17 2003-09-27 14:03:45 peter
Revision 1.18 2004-09-16 22:08:13 armin
* added target netwlibc
Revision 1.17 2003/09/27 14:03:45 peter
* fixed for unix
Revision 1.16 2002/09/11 12:10:03 pierre