fixes [712efac3397f9954]: change mistakenly flipped args for Tcl_OpenTcpServerEx()

sebres · sebres · commit 6aac4d3a0981 · 2025-03-05T13:42:45.000Z
diff --git a/generic/tclIOSock.c b/generic/tclIOSock.c
@@ -318,8 +318,8 @@ Tcl_OpenTcpServer(
     char portbuf[TCL_INTEGER_SPACE];
 
     TclFormatInt(portbuf, port);
-    return Tcl_OpenTcpServerEx(interp, portbuf, host, -1,
-	    TCL_TCPSERVER_REUSEADDR, acceptProc, callbackData);
+    return Tcl_OpenTcpServerEx(interp, portbuf, host, TCL_TCPSERVER_REUSEADDR,
+	    -1, acceptProc, callbackData);
 }
 
 /*

Original file line number	Diff line number	Diff line change
`@@ -318,8 +318,8 @@ Tcl_OpenTcpServer(`
`318`	`318`	`char portbuf[TCL_INTEGER_SPACE];`
`319`	`319`
`320`	`320`	`TclFormatInt(portbuf, port);`
`321`		`- return Tcl_OpenTcpServerEx(interp, portbuf, host, -1,`
`322`		`- TCL_TCPSERVER_REUSEADDR, acceptProc, callbackData);`
	`321`	`+ return Tcl_OpenTcpServerEx(interp, portbuf, host, TCL_TCPSERVER_REUSEADDR,`
	`322`	`+ -1, acceptProc, callbackData);`
`323`	`323`	`}`
`324`	`324`
`325`	`325`	`/*`