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 | cbe4a7dae5d19875cc5634ba423e5a2942191946 (patch) | |
| tree | 145be251a89c0e6af3ff2b7aaa7d23fbd3e4161e /generic/tclIOSock.c | |
| parent | caf8932e2eb878f8cf7c759009c944475d513325 (diff) | |
| download | tcl-cbe4a7dae5d19875cc5634ba423e5a2942191946.zip tcl-cbe4a7dae5d19875cc5634ba423e5a2942191946.tar.gz tcl-cbe4a7dae5d19875cc5634ba423e5a2942191946.tar.bz2 | |
Adjust OpenTcpServer for the latest changes to OpenTcpServerEx
Diffstat (limited to 'generic/tclIOSock.c')
| -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); } |