summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorlimeboy <that.lemon+tcl@gmai.com>2016-12-14 15:59:43 (GMT)
committerlimeboy <that.lemon+tcl@gmai.com>2016-12-14 15:59:43 (GMT)
commita63b9bacf55e153bdb8f470146bf3056156b29e6 (patch)
tree145be251a89c0e6af3ff2b7aaa7d23fbd3e4161e /generic
parentb802a6e420e47172714baa9bc52fd03a5bb91f43 (diff)
downloadtcl-a63b9bacf55e153bdb8f470146bf3056156b29e6.zip
tcl-a63b9bacf55e153bdb8f470146bf3056156b29e6.tar.gz
tcl-a63b9bacf55e153bdb8f470146bf3056156b29e6.tar.bz2
Adjust OpenTcpServer for the latest changes to OpenTcpServerEx
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIOSock.c6
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);
}