[Bug 510001]: TclSockMinimumBuffers needs plat imp

FossilOrigin-Name: 2725f75513c5d1a23babcd1222c69d4190e780e3

1 files changed, 10 insertions, 5 deletions

diff --git a/generic/tclIOSock.c b/generic/tclIOSock.c
index ec4a9d9..7233646 100644
--- a/generic/tclIOSock.c
+++ b/generic/tclIOSock.c
@@ -81,25 +81,30 @@ TclSockGetPort(
  *----------------------------------------------------------------------
  */
 
+#undef TclSockMinimumBuffers
+#ifndef _WIN32
+#   define SOCKET int
+#endif
+
 int
 TclSockMinimumBuffers(
-    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 *)&current, &len);
+    getsockopt((SOCKET)sock, SOL_SOCKET, SO_SNDBUF, (char *)&current, &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 *)&current, &len);
+    getsockopt((SOCKET)sock, SOL_SOCKET, SO_RCVBUF, (char *)&current, &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;
 }