diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-11 10:28:31 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-11 10:28:31 (GMT) |
commit | 19fb4adbcae4d69d02133e44994a40964ed9940b (patch) | |
tree | ffa29c5eb416ef18bbbe9531e43a8ff488da8017 /generic/tclIORChan.c | |
parent | 4ac2c6c6becc38819419d8383061b5369bdc59ea (diff) | |
parent | e5922ea9f58e980cfa34845031a5daa2202b0bd9 (diff) | |
download | tcl-19fb4adbcae4d69d02133e44994a40964ed9940b.zip tcl-19fb4adbcae4d69d02133e44994a40964ed9940b.tar.gz tcl-19fb4adbcae4d69d02133e44994a40964ed9940b.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclIORChan.c')
-rw-r--r-- | generic/tclIORChan.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index f313ab7..63c8007 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -448,7 +448,7 @@ static Tcl_Obj * DecodeEventMask(int mask); static ReflectedChannel * NewReflectedChannel(Tcl_Interp *interp, Tcl_Obj *cmdpfxObj, int mode, Tcl_Obj *handleObj); static Tcl_Obj * NextHandle(void); -static void FreeReflectedChannel(ReflectedChannel *rcPtr); +static Tcl_FreeProc FreeReflectedChannel; static int InvokeTclMethod(ReflectedChannel *rcPtr, MethodName method, Tcl_Obj *argOneObj, Tcl_Obj *argTwoObj, Tcl_Obj **resultObjPtr); @@ -1230,7 +1230,7 @@ ReflectClose( if (rcPtr->writeTimer != NULL) { Tcl_DeleteTimerHandler(rcPtr->writeTimer); } - Tcl_EventuallyFree(rcPtr, (Tcl_FreeProc *) FreeReflectedChannel); + Tcl_EventuallyFree(rcPtr, FreeReflectedChannel); return EOK; } @@ -1305,7 +1305,7 @@ ReflectClose( if (rcPtr->writeTimer != NULL) { Tcl_DeleteTimerHandler(rcPtr->writeTimer); } - Tcl_EventuallyFree(rcPtr, (Tcl_FreeProc *) FreeReflectedChannel); + Tcl_EventuallyFree(rcPtr, FreeReflectedChannel); return (result == TCL_OK) ? EOK : EINVAL; } @@ -2318,8 +2318,9 @@ NextHandle(void) static void FreeReflectedChannel( - ReflectedChannel *rcPtr) + void *blockPtr) { + ReflectedChannel *rcPtr = (ReflectedChannel *) blockPtr; Channel *chanPtr = (Channel *) rcPtr->chan; TclChannelRelease((Tcl_Channel)chanPtr); |