Преглед на файлове

+ 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;
   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}