summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-08-02 04:29:41 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-08-02 04:29:41 (GMT)
commitdb487f35e3c9f0d1a17c0480582f1b85fac7900f (patch)
treebf218c90d8511a3810ed547110cfaa645cce93a8 /generic
parent05ebf671c4c783977fe9da5d8782277d0855605b (diff)
parent8a0233faa068ffc578838b1715acb2176e3bcb7a (diff)
downloadtcl-db487f35e3c9f0d1a17c0480582f1b85fac7900f.zip
tcl-db487f35e3c9f0d1a17c0480582f1b85fac7900f.tar.gz
tcl-db487f35e3c9f0d1a17c0480582f1b85fac7900f.tar.bz2
merge 8.5
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIO.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 57a934b..ed40e0d 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -535,6 +535,8 @@ TclFinalizeIOSubsystem(void)
* for all data to flush out.
*/
+ TclChannelPreserve((Tcl_Channel)chanPtr);
+
(void) Tcl_SetChannelOption(NULL, (Tcl_Channel) chanPtr,
"-blocking", "on");
@@ -586,6 +588,7 @@ TclFinalizeIOSubsystem(void)
chanPtr->instanceData = NULL;
SetFlag(statePtr, CHANNEL_DEAD);
}
+ TclChannelRelease((Tcl_Channel)chanPtr);
}
}