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

* support target netware

Browse Source
This commit is contained in:
armin 2004-11-06 19:56:14 +00:00
parent 043c6ff8e7
commit 784ec6c038
3 changed files with 30 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/fpredir.pas
View File

@ -46,6 +46,9 @@ Interface
{$ifdef netwlibc}
{$define implemented}
{$endif}
{$ifdef netware_clib}
{$define implemented}
{$endif}
{ be sure msdos is not set for FPC compiler }
{$ifdef FPC}
@ -91,6 +94,9 @@ Uses
{$ifdef netwlibc}
Libc,
{$endif netwlibc}
{$ifdef netware_clib}
nwserv,
{$endif netware_clib}
{$ifdef win32}
windows,
{$endif win32}
@ -974,7 +980,10 @@ finalization
End.
{
$Log$
Revision 1.8 2004-09-21 14:55:45 armin
Revision 1.9 2004-11-06 19:56:14 armin
* support target netware
Revision 1.8 2004/09/21 14:55:45 armin
* added uses windows for win32 (deleted that with my last change)
Revision 1.7 2004/09/19 14:51:03 armin

11
ide/wconsole.pas
View File

@ -40,9 +40,9 @@ interface
{$ifdef go32v2}
longint
{$endif go32v2}
{$ifdef netwlibc}
{$ifdef netware}
longint
{$endif netwlibc}
{$endif netware}
;
Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode);
@ -65,7 +65,7 @@ Begin
{$ifdef go32v2}
ConsoleMode:=0;
{$endif go32v2}
{$ifdef netwlibc}
{$ifdef netware}
ConsoleMode:=0;
{$endif}
End;
@ -86,7 +86,10 @@ end.
{
$Log$
Revision 1.7 2004-09-19 14:51:03 armin
Revision 1.8 2004-11-06 19:56:14 armin
* support target netware
Revision 1.7 2004/09/19 14:51:03 armin
* added support for target netwlibc
Revision 1.6 2003/11/19 17:11:40 marco

15
ide/whelp.pas
View File

@ -197,6 +197,9 @@ uses
{$ENDIF OS2}
{$ifdef netwlibc}
Libc,
{$endif}
{$ifdef netware_clib}
nwserv,
{$endif}
Strings,
WConsts;
@ -340,7 +343,12 @@ begin
GetDosTicks:=((tv.tv_sec mod 86400) div 60)*1092+((tv.tv_Sec mod 60)*1000000+tv.tv_USec) div 549
end;
{$endif}
{$ifdef netware_clib}
begin
GetDosTicks := Nwserv.GetCurrentTicks;
end;
{$endif}
procedure DisposeRecord(var R: TRecord);
begin
@ -970,7 +978,10 @@ end;
END.
{
$Log$
Revision 1.11 2004-09-16 22:08:13 armin
Revision 1.12 2004-11-06 19:56:14 armin
* support target netware
Revision 1.11 2004/09/16 22:08:13 armin
* added target netwlibc
Revision 1.10 2003/09/27 14:03:45 peter