equal
deleted
inserted
replaced
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 |
|