diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-10 13:56:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-10 13:56:10 (GMT) |
| commit | d61a4c17579c4a064d692e670e06c98c45baff80 (patch) | |
| tree | 1061d9a2d7d65b1c23cfa06188dc5fd2e6a3c5be /unix/tclUnixSock.c | |
| parent | ec306bb22e434cd0fe9c2e4b8d29fa1e23c8bee3 (diff) | |
| download | tcl-d61a4c17579c4a064d692e670e06c98c45baff80.zip tcl-d61a4c17579c4a064d692e670e06c98c45baff80.tar.gz tcl-d61a4c17579c4a064d692e670e06c98c45baff80.tar.bz2 | |
Experimental follow-up: Change internal TclCreateSocketAddress() signature, from using "int port" to "const char *service".
Diffstat (limited to 'unix/tclUnixSock.c')
| -rw-r--r-- | unix/tclUnixSock.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/unix/tclUnixSock.c b/unix/tclUnixSock.c index 8e97543..63bccae 100644 --- a/unix/tclUnixSock.c +++ b/unix/tclUnixSock.c @@ -1287,13 +1287,17 @@ Tcl_OpenTcpClient( const char *errorMsg = NULL; struct addrinfo *addrlist = NULL, *myaddrlist = NULL; char channelName[SOCK_CHAN_LENGTH]; + char service[TCL_INTEGER_SPACE], myservice[TCL_INTEGER_SPACE]; /* * Do the name lookups for the local and remote addresses. */ - if (!TclCreateSocketAddress(interp, &addrlist, host, port, 0, &errorMsg) - || !TclCreateSocketAddress(interp, &myaddrlist, myaddr, myport, 1, + TclFormatInt(service, port); + TclFormatInt(myservice, myport); + + if (!TclCreateSocketAddress(interp, &addrlist, host, service, 0, &errorMsg) + || !TclCreateSocketAddress(interp, &myaddrlist, myaddr, myservice, 1, &errorMsg)) { if (addrlist != NULL) { freeaddrinfo(addrlist); @@ -1481,7 +1485,7 @@ Tcl_OpenTcpServerEx( goto error; } - if (!TclCreateSocketAddress(interp, &addrlist, myHost, port, 1, &errorMsg)) { + if (!TclCreateSocketAddress(interp, &addrlist, myHost, service, 1, &errorMsg)) { my_errno = errno; goto error; } |