diff options
Diffstat (limited to 'tcl/generic/tclIOSock.c')
-rw-r--r-- | tcl/generic/tclIOSock.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/tcl/generic/tclIOSock.c b/tcl/generic/tclIOSock.c index 031db7856dc..11228793149 100644 --- a/tcl/generic/tclIOSock.c +++ b/tcl/generic/tclIOSock.c @@ -43,7 +43,7 @@ TclSockGetPort(interp, string, proto, portPtr) { struct servent *sp; /* Protocol info for named services */ Tcl_DString ds; - char *native; + CONST char *native; if (Tcl_GetInt(NULL, string, portPtr) != TCL_OK) { /* @@ -91,10 +91,7 @@ TclSockMinimumBuffers(sock, size) int size; /* Minimum buffer size */ { int current; - /* - * Should be socklen_t, but HP10.20 (g)cc chokes - */ - size_t len; + socklen_t len; len = sizeof(int); getsockopt(sock, SOL_SOCKET, SO_SNDBUF, (char *)¤t, &len); @@ -110,4 +107,3 @@ TclSockMinimumBuffers(sock, size) } return TCL_OK; } - |