diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-13 10:31:22 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-13 10:31:22 (GMT) |
| commit | 8886d91a73505dc9a8b2b3bbbba9ddd9fea63e77 (patch) | |
| tree | 8127c550e772e06d08ceebd6cc2ae986f4f9325f /unix/tclUnixSock.c | |
| parent | cbd41f6910eac83dfe47c930b5d9ab50c503596a (diff) | |
| parent | e732b20a4d880270476bab6b19cb066770724e62 (diff) | |
| download | tcl-8886d91a73505dc9a8b2b3bbbba9ddd9fea63e77.zip tcl-8886d91a73505dc9a8b2b3bbbba9ddd9fea63e77.tar.gz tcl-8886d91a73505dc9a8b2b3bbbba9ddd9fea63e77.tar.bz2 | |
rebase to 8.7. Add documentation
Diffstat (limited to 'unix/tclUnixSock.c')
| -rw-r--r-- | unix/tclUnixSock.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/unix/tclUnixSock.c b/unix/tclUnixSock.c index abd7fa6..f50a3a6 100644 --- a/unix/tclUnixSock.c +++ b/unix/tclUnixSock.c @@ -1669,6 +1669,7 @@ Tcl_OpenTcpServerEx( const char *service, /* Port number to open. */ const char *myHost, /* Name of local host. */ unsigned int flags, /* Flags. */ + int backlog, /* Length of OS listen backlog queue. */ Tcl_TcpAcceptProc *acceptProc, /* Callback for accepting connections from new * clients. */ @@ -1834,7 +1835,10 @@ Tcl_OpenTcpServerEx( chosenport = ntohs(sockname.sa4.sin_port); } } - status = listen(sock, SOMAXCONN); + if (backlog < 0) { + backlog = SOMAXCONN; + } + status = listen(sock, backlog); if (status < 0) { if (howfar < LISTEN) { howfar = LISTEN; |