Tcl Source Code

Artifact 2eadc759e4abc439fa99de6d4168887df89b4bb41385e1ae49176e02cb692b0b:

Attachment "bf899d6d6d.diff" to ticket [bf899d6d6d] added by chrstphrchvz 2023-10-12 12:44:37.

---

diff --git unix/tclUnixSock.c unix/tclUnixSock.c
index 6ca12931aa..c60edc3a34 100644
--- unix/tclUnixSock.c
+++ unix/tclUnixSock.c
@@ -138,7 +138,7 @@ static int		TcpOutputProc(void *instanceData,
 static void		TcpThreadActionProc(void *instanceData, int action);
 static void		TcpWatchProc(void *instanceData, int mask);
 static int		WaitForConnect(TcpState *statePtr, int *errorCodePtr);
-static void		WrapNotify(void *clientData, int mask);
+static Tcl_FileProc	WrapNotify;
 
 /*
  * This structure describes the channel type structure for TCP socket
@@ -1094,7 +1094,7 @@ TcpWatchProc(
 
 	statePtr->interest = mask;
         Tcl_CreateFileHandler(statePtr->fds.fd, mask|TCL_READABLE,
-                (Tcl_FileProc *) WrapNotify, statePtr);
+		WrapNotify, statePtr);
     } else {
         Tcl_DeleteFileHandler(statePtr->fds.fd);
     }