diff options
| author | limeboy <that.lemon+tcl@gmai.com> | 2016-12-14 15:59:43 (GMT) |
|---|---|---|
| committer | limeboy <that.lemon+tcl@gmai.com> | 2016-12-14 15:59:43 (GMT) |
| commit | a63b9bacf55e153bdb8f470146bf3056156b29e6 (patch) | |
| tree | 145be251a89c0e6af3ff2b7aaa7d23fbd3e4161e | |
| parent | b802a6e420e47172714baa9bc52fd03a5bb91f43 (diff) | |
| download | tcl-a63b9bacf55e153bdb8f470146bf3056156b29e6.zip tcl-a63b9bacf55e153bdb8f470146bf3056156b29e6.tar.gz tcl-a63b9bacf55e153bdb8f470146bf3056156b29e6.tar.bz2 | |
Adjust OpenTcpServer for the latest changes to OpenTcpServerEx
| -rw-r--r-- | generic/tclIOSock.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclIOSock.c b/generic/tclIOSock.c index b6e99ba..8ad268a 100644 --- a/generic/tclIOSock.c +++ b/generic/tclIOSock.c @@ -304,7 +304,11 @@ Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData) { - return Tcl_OpenTcpServerEx(interp, port, host, TCL_TCPSERVER_REUSEADDR, + char portbuf[TCL_INTEGER_SPACE]; + + TclFormatInt(portbuf, port); + + return Tcl_OpenTcpServerEx(interp, portbuf, host, TCL_TCPSERVER_REUSEADDR, acceptProc, callbackData); } |