Browse Source

+ Uses unix for 1.1

michael 22 years ago
parent
commit
670c206758
1 changed files with 6 additions and 1 deletions
  1. 6 1
      packages/base/netdb/netdb.pp

+ 6 - 1
packages/base/netdb/netdb.pp

@@ -65,7 +65,12 @@ Function GetServiceByPort(Port : Word;Const Proto : String; Var E : TServiceEntr
 Implementation
 Implementation
 
 
 uses 
 uses 
-  linux,sockets,sysutils;
+{$ifdef VER1_0}
+   Linux,
+{$else}
+   Unix,
+{$endif}
+   sockets,sysutils;
 
 
 {$i hs.inc}
 {$i hs.inc}