From 784ec6c0387ab2143727bdfb8a3eb54399398b95 Mon Sep 17 00:00:00 2001
From: armin <armin>
Date: Sat, 6 Nov 2004 19:56:14 +0000
Subject: [PATCH] * support target netware

---
 ide/fpredir.pas  | 11 ++++++++++-
 ide/wconsole.pas | 11 +++++++----
 ide/whelp.pas    | 15 +++++++++++++--
 3 files changed, 30 insertions(+), 7 deletions(-)

diff --git a/ide/fpredir.pas b/ide/fpredir.pas
index 725914d721..3bf733b3b2 100644
--- a/ide/fpredir.pas
+++ b/ide/fpredir.pas
@@ -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
diff --git a/ide/wconsole.pas b/ide/wconsole.pas
index 368c589fcb..bfd7e6e704 100644
--- a/ide/wconsole.pas
+++ b/ide/wconsole.pas
@@ -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
diff --git a/ide/whelp.pas b/ide/whelp.pas
index 2b40b29168..cd12dd938d 100644
--- a/ide/whelp.pas
+++ b/ide/whelp.pas
@@ -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