فهرست منبع

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