diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-04 08:36:18 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-04 08:36:18 (GMT) |
commit | a81b482049e1a4a1892c10aaa66830f925d14b34 (patch) | |
tree | 2e90215cbb2831726d370df96220fde56b84545c /generic/tclIOSock.c | |
parent | b4ffe672ad863a2a5622188e0d33ec3fd40398bf (diff) | |
parent | 94b2d910590d8a54c26a7704ef078ff349eac948 (diff) | |
download | tcl-a81b482049e1a4a1892c10aaa66830f925d14b34.zip tcl-a81b482049e1a4a1892c10aaa66830f925d14b34.tar.gz tcl-a81b482049e1a4a1892c10aaa66830f925d14b34.tar.bz2 |
[Bug 510001]: TclSockMinimumBuffers needs plat imp
Diffstat (limited to 'generic/tclIOSock.c')
-rw-r--r-- | generic/tclIOSock.c | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/generic/tclIOSock.c b/generic/tclIOSock.c index f311912..159f3da 100644 --- a/generic/tclIOSock.c +++ b/generic/tclIOSock.c @@ -83,25 +83,30 @@ TclSockGetPort(interp, string, proto, portPtr) *---------------------------------------------------------------------- */ +#undef TclSockMinimumBuffers +#ifndef _WIN32 +# define SOCKET int +#endif + int TclSockMinimumBuffers(sock, size) - int sock; /* Socket file descriptor */ + void *sock; /* Socket file descriptor */ int size; /* Minimum buffer size */ { int current; socklen_t len; len = sizeof(int); - getsockopt(sock, SOL_SOCKET, SO_SNDBUF, (char *)¤t, &len); + getsockopt((SOCKET)sock, SOL_SOCKET, SO_SNDBUF, (char *)¤t, &len); if (current < size) { len = sizeof(int); - setsockopt(sock, SOL_SOCKET, SO_SNDBUF, (char *)&size, len); + setsockopt((SOCKET)sock, SOL_SOCKET, SO_SNDBUF, (char *)&size, len); } len = sizeof(int); - getsockopt(sock, SOL_SOCKET, SO_RCVBUF, (char *)¤t, &len); + getsockopt((SOCKET)sock, SOL_SOCKET, SO_RCVBUF, (char *)¤t, &len); if (current < size) { len = sizeof(int); - setsockopt(sock, SOL_SOCKET, SO_RCVBUF, (char *)&size, len); + setsockopt((SOCKET)sock, SOL_SOCKET, SO_RCVBUF, (char *)&size, len); } return TCL_OK; } |