* add common socket error constants to all platforms/socket.pp

git-svn-id: trunk@7022 -

rtl/netware/sockets.pp

@@ -36,10 +36,19 @@ Type
   tsocklen=cint;
   psocklen=^tsocklen;
 
-const EsockEINTR  = WSAEINTR;
-      EsockEBADF  = WSAEBADF;
-      EsockEFAULT = WSAEFAULT;
-      EsockEINVAL = WSAEINVAL;
+const
+  EsockEINTR            = WSAEINTR;
+  EsockEBADF            = WSAEBADF;
+  EsockEFAULT           = WSAEFAULT;
+  EsockEINVAL           = WSAEINVAL;
+  EsocksEACCESS         = WSAEACCES;
+  EsocksEMFILE          = WSAEMFILE;
+  EsocksEMSGSIZE        = WSAEMSGSIZE;
+  EsocksENOBUFS         = WSAENOBUFS;
+  EsocksENOTCONN        = WSAENOTCONN;
+  EsocksENOTSOCK        = WSAENOTSOCK;
+  EsocksEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
+  EsocksEWOULDBLOCK     = WSAEWOULDBLOCK;
 
 {$i netwsockh.inc}
 {$i socketsh.inc}

rtl/netwlibc/sockets.pp

@@ -35,10 +35,19 @@ Type
   tsocklen=cint;
   psocklen=^tsocklen;
 
-const EsockEINTR  = WSAEINTR;
-      EsockEBADF  = WSAEBADF;
-      EsockEFAULT = WSAEFAULT;
-      EsockEINVAL = WSAEINVAL;
+const
+  EsockEINTR            = WSAEINTR;
+  EsockEBADF            = WSAEBADF;
+  EsockEFAULT           = WSAEFAULT;
+  EsockEINVAL           = WSAEINVAL;
+  EsocksEACCESS         = WSAEACCES;
+  EsocksEMFILE          = WSAEMFILE;
+  EsocksEMSGSIZE        = WSAEMSGSIZE;
+  EsocksENOBUFS         = WSAENOBUFS;
+  EsocksENOTCONN        = WSAENOTCONN;
+  EsocksENOTSOCK        = WSAENOTSOCK;
+  EsocksEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
+  EsocksEWOULDBLOCK     = WSAEWOULDBLOCK;
 
 {$i netwsockh.inc}
 {$i socketsh.inc}

rtl/unix/sockets.pp

@@ -37,10 +37,20 @@ type
                   path:array[0..107] of char;    //104 total for freebsd.
                   end;
 
-const EsockEINTR  = EsysEINTR;
-      EsockEBADF  = EsysEBADF;
-      EsockEFAULT = EsysEFAULT;
-      EsockEINVAL = EsysEINVAL;
+const
+  EsockEINTR            = EsysEINTR;
+  EsockEBADF            = EsysEBADF;
+  EsockEFAULT           = EsysEFAULT;
+  EsockEINVAL           = EsysEINVAL;
+  EsocksEACCESS         = ESysEAcces;
+  EsocksEMFILE          = ESysEmfile;
+  EsocksEMSGSIZE        = ESysEMsgSize;
+  EsocksENOBUFS         = ESysENoBufs;
+  EsocksENOTCONN        = ESysENotConn;
+  EsocksENOTSOCK        = ESysENotSock;
+  EsocksEPROTONOSUPPORT = ESysEProtoNoSupport;
+  EsocksEWOULDBLOCK     = ESysEWouldBlock;
+
 
 { unix socket specific functions }
 Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint);

rtl/win/sockets.pp

@@ -27,10 +27,19 @@ Type
   tsocklen= cint;
   psocklen= ^tsocklen;
 
-const EsockEINTR  = WSAEINTR;
-      EsockEBADF  = WSAEBADF;
-      EsockEFAULT = WSAEFAULT;
-      EsockEINVAL = WSAEINVAL;
+const
+  EsockEINTR            = WSAEINTR;
+  EsockEBADF            = WSAEBADF;
+  EsockEFAULT           = WSAEFAULT;
+  EsockEINVAL           = WSAEINVAL;
+  EsocksEACCESS         = WSAEACCES;
+  EsocksEMFILE          = WSAEMFILE;
+  EsocksEMSGSIZE        = WSAEMSGSIZE;
+  EsocksENOBUFS         = WSAENOBUFS;
+  EsocksENOTCONN        = WSAENOTCONN;
+  EsocksENOTSOCK        = WSAENOTSOCK;
+  EsocksEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
+  EsocksEWOULDBLOCK     = WSAEWOULDBLOCK;
 
 {$i socketsh.inc}
 {$i fpwinsockh.inc}