Explorar o código

+ Add constants to Netware socket units too.

git-svn-id: trunk@5978 -
daniel %!s(int64=18) %!d(string=hai) anos
pai
achega
d5927f1ef4
Modificáronse 2 ficheiros con 9 adicións e 0 borrados
  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;
   psocklen=^tsocklen;
 
+const EsockEINTR  = WSAEINTR;
+      EsockEBADF  = WSAEBADF;
+      EsockEFAULT = WSAEFAULT;
+      EsockEINVAL = WSAEINVAL;
+
 {$i netwsockh.inc}
 {$i socketsh.inc}
 

+ 4 - 0
rtl/netwlibc/sockets.pp

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