浏览代码

+ Add constants to Netware socket units too.

git-svn-id: trunk@5978 -
daniel 18 年之前
父节点
当前提交
d5927f1ef4
共有 2 个文件被更改,包括 9 次插入0 次删除
  1. 5 0
      rtl/netware/sockets.pp
  2. 4 0
      rtl/netwlibc/sockets.pp

+ 5 - 0
rtl/netware/sockets.pp

@@ -36,6 +36,11 @@ Type
   tsocklen=cint;
   tsocklen=cint;
   psocklen=^tsocklen;
   psocklen=^tsocklen;
 
 
+const EsockEINTR  = WSAEINTR;
+      EsockEBADF  = WSAEBADF;
+      EsockEFAULT = WSAEFAULT;
+      EsockEINVAL = WSAEINVAL;
+
 {$i netwsockh.inc}
 {$i netwsockh.inc}
 {$i socketsh.inc}
 {$i socketsh.inc}
 
 

+ 4 - 0
rtl/netwlibc/sockets.pp

@@ -35,6 +35,10 @@ Type
   tsocklen=cint;
   tsocklen=cint;
   psocklen=^tsocklen;
   psocklen=^tsocklen;
 
 
+const EsockEINTR  = WSAEINTR;
+      EsockEBADF  = WSAEBADF;
+      EsockEFAULT = WSAEFAULT;
+      EsockEINVAL = WSAEINVAL;
 
 
 {$i netwsockh.inc}
 {$i netwsockh.inc}
 {$i socketsh.inc}
 {$i socketsh.inc}