summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-06 15:23:43 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-06 15:23:43 (GMT)
commite3ee9f9e15df60c47593c2b50c17fefef1909e1d (patch)
tree28413030d66b1bc2e04e078ac326d8d90bd0b113
parent5684837e350796f98813f2dc9cfecabb7ea2fe09 (diff)
downloadtcl-e3ee9f9e15df60c47593c2b50c17fefef1909e1d.zip
tcl-e3ee9f9e15df60c47593c2b50c17fefef1909e1d.tar.gz
tcl-e3ee9f9e15df60c47593c2b50c17fefef1909e1d.tar.bz2
Add Panic call to better identify where iogt-2.5 goes wrong.
-rw-r--r--generic/tclIO.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 58c7b3c..6bf28a1 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -2311,6 +2311,9 @@ static void
PreserveChannelBuffer(
ChannelBuffer *bufPtr)
{
+ if (bufPtr->refCount == 0) {
+ Tcl_Panic("Reuse of ChannelBuffer!");
+ }
bufPtr->refCount++;
}