Artifact
ea3e74fa91f2c22156ad4ef410dcea3ca6f21dcd:
Attachment "fix.patch" to
ticket [465494ffff]
added by
dgp
2001-09-28 07:30:52.
Index: generic/tclIO.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIO.c,v
retrieving revision 1.36
diff -u -r1.36 tclIO.c
--- generic/tclIO.c 2001/09/27 02:12:19 1.36
+++ generic/tclIO.c 2001/09/28 00:29:40
@@ -6735,10 +6735,11 @@
(Tcl_ChannelBlockModeProc(chanPtr->typePtr) == NULL)) {
statePtr->flags |= CHANNEL_TIMER_FEV;
}
-
+ Tcl_Preserve(statePtr);
Tcl_NotifyChannel((Tcl_Channel)chanPtr, TCL_READABLE);
statePtr->flags &= ~CHANNEL_TIMER_FEV;
+ Tcl_Release(statePtr);
} else {
statePtr->timer = NULL;
UpdateInterest(chanPtr);