Explorar o código

* fixed #28908 (add alias for ADDRINUSE to sockets) for win,os2,unix

git-svn-id: trunk@32258 -
marco %!s(int64=9) %!d(string=hai) anos
pai
achega
a9ac2abc77

+ 1 - 0
packages/rtl-extra/src/os2commn/sockets.pp

@@ -108,6 +108,7 @@ const
   EsockENOTSOCK = SOCENOTSOCK;
   EsockENOTSOCK = SOCENOTSOCK;
   EsockEPROTONOSUPPORT = SOCEPROTONOSUPPORT;
   EsockEPROTONOSUPPORT = SOCEPROTONOSUPPORT;
   EsockEWOULDBLOCK = SOCEWOULDBLOCK;
   EsockEWOULDBLOCK = SOCEWOULDBLOCK;
+  EsockADDRINUSE = SOCEADDRINUSE;
 
 
 
 
 (***************************************************************************)
 (***************************************************************************)

+ 1 - 1
packages/rtl-extra/src/unix/sockets.pp

@@ -59,7 +59,7 @@ const
 {$endif beos}
 {$endif beos}
   EsockEPROTONOSUPPORT  = ESysEProtoNoSupport;
   EsockEPROTONOSUPPORT  = ESysEProtoNoSupport;
   EsockEWOULDBLOCK      = ESysEWouldBlock;
   EsockEWOULDBLOCK      = ESysEWouldBlock;
-
+  EsockADDRINUSE        = ESysEADDRINUSE;
 
 
 { unix socket specific functions }
 { unix socket specific functions }
 Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint); deprecated;
 Procedure Str2UnixSockAddr(const addr:string;var t:TUnixSockAddr;var len:longint); deprecated;

+ 1 - 0
packages/rtl-extra/src/win/sockets.pp

@@ -45,6 +45,7 @@ const
   EsockENOTSOCK        = WSAENOTSOCK;
   EsockENOTSOCK        = WSAENOTSOCK;
   EsockEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
   EsockEPROTONOSUPPORT = WSAEPROTONOSUPPORT;
   EsockEWOULDBLOCK     = WSAEWOULDBLOCK;
   EsockEWOULDBLOCK     = WSAEWOULDBLOCK;
+  EsockADDRINUSE       = WSAEADDRINUSE;
 
 
   SHUT_RD          = SD_RECEIVE; // aliases so we are cross-platform
   SHUT_RD          = SD_RECEIVE; // aliases so we are cross-platform
   SHUT_WR          = SD_SEND;
   SHUT_WR          = SD_SEND;