Socket.st
branchjv
changeset 3743 79ae1399e8b1
parent 3658 5cc1c8220666
parent 3742 a12020350fa0
child 3844 69a954c0be09
equal deleted inserted replaced
3740:104bf19773d9 3743:79ae1399e8b1
    47 // The default is linger until all data is sent in background
    47 // The default is linger until all data is sent in background
    48 // so the close on the socket is non-blocking
    48 // so the close on the socket is non-blocking
    49 // linger.onoff=off linger.time= *irrelevant*
    49 // linger.onoff=off linger.time= *irrelevant*
    50 //# define SET_LINGER_WHEN_CREATING_SOCKET
    50 //# define SET_LINGER_WHEN_CREATING_SOCKET
    51 
    51 
    52 # ifdef __MINGW__
    52 # ifdef __xxMINGW__
    53 extern HANDLE _get_osfhandle();
    53 extern HANDLE _get_osfhandle();
    54 # endif
    54 # endif
    55 
    55 
    56 # if defined(__BORLANDC__)
    56 # if defined(__BORLANDC__)
    57 // not defined in borland headers
    57 // not defined in borland headers
  2129     union sockaddr_u sa;
  2129     union sockaddr_u sa;
  2130     SOCKET sock;
  2130     SOCKET sock;
  2131     int a;
  2131     int a;
  2132     INT ret;
  2132     INT ret;
  2133     int oldFlags;
  2133     int oldFlags;
       
  2134 # ifdef __MINGW64__
       
  2135     unsigned long on = 1;
       
  2136 # else
  2134     int on = 1;
  2137     int on = 1;
       
  2138 #endif
  2135     int sockaddr_size;
  2139     int sockaddr_size;
  2136 
  2140 
  2137     if (!__isNonNilObject(aSocketAddress) || !__isBytes(aSocketAddress)) {
  2141     if (!__isNonNilObject(aSocketAddress) || !__isBytes(aSocketAddress)) {
  2138 	DBGPRINTF(("SOCKET: invalid socketAddress\n"));
  2142 	DBGPRINTF(("SOCKET: invalid socketAddress\n"));
  2139 	err = @symbol(argumentError);
  2143 	err = @symbol(argumentError);
  4190 !
  4194 !
  4191 
  4195 
  4192 version_CVS
  4196 version_CVS
  4193     ^ '$Header$'
  4197     ^ '$Header$'
  4194 ! !
  4198 ! !
  4195