diff options
| author | nijtmans <nijtmans> | 2010-12-10 15:44:53 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-12-10 15:44:53 (GMT) |
| commit | 64525a0fe7a4adf2979acea69ebb53a3bd8e2071 (patch) | |
| tree | bcdbfc2eda856f5fabedc7b7e3c2f36825fdd8c7 /unix/tclUnixSock.c | |
| parent | 806fc96e112242a089ea4a824e37307244b5269c (diff) | |
| download | tcl-64525a0fe7a4adf2979acea69ebb53a3bd8e2071.zip tcl-64525a0fe7a4adf2979acea69ebb53a3bd8e2071.tar.gz tcl-64525a0fe7a4adf2979acea69ebb53a3bd8e2071.tar.bz2 | |
Change first parameter of TclSockMinimumBuffers to ClientData, and TclWin(Get|Set)SockOpt to SOCKET, because on Win64 those are 64-bit, which does not fit.
Diffstat (limited to 'unix/tclUnixSock.c')
| -rw-r--r-- | unix/tclUnixSock.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/unix/tclUnixSock.c b/unix/tclUnixSock.c index b3461e3..9e86a6a 100644 --- a/unix/tclUnixSock.c +++ b/unix/tclUnixSock.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixSock.c,v 1.31 2010/10/28 16:22:37 dgp Exp $ + * RCS: @(#) $Id: tclUnixSock.c,v 1.32 2010/12/10 15:44:54 nijtmans Exp $ */ #include "tclInt.h" @@ -923,7 +923,7 @@ CreateClientSocket( * Set kernel space buffering */ - TclSockMinimumBuffers(sock, SOCKET_BUFSIZE); + TclSockMinimumBuffers(INT2PTR(sock), SOCKET_BUFSIZE); if (async) { status = TclUnixSetBlockingMode(sock, TCL_MODE_NONBLOCKING); @@ -1185,7 +1185,7 @@ Tcl_OpenTcpServer( * Set kernel space buffering */ - TclSockMinimumBuffers(sock, SOCKET_BUFSIZE); + TclSockMinimumBuffers(INT2PTR(sock), SOCKET_BUFSIZE); /* * Set up to reuse server addresses automatically and bind to the |