瀏覽代碼

+ Uses unix for 1.1

michael 22 年之前
父節點
當前提交
670c206758
共有 1 個文件被更改,包括 6 次插入1 次删除
  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
 
 uses 
-  linux,sockets,sysutils;
+{$ifdef VER1_0}
+   Linux,
+{$else}
+   Unix,
+{$endif}
+   sockets,sysutils;
 
 {$i hs.inc}