summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-03-05 22:50:32 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-03-05 22:50:32 (GMT)
commite2c9dd401d8396244a2d94f15c05c019aa2a3b4c (patch)
tree5a9c26c5f8f31f934c934a2a6dc61372ef3a2ec8 /generic
parent9ec2f6a0332cda78247229df47c6a6e5c0469c94 (diff)
downloadtcl-e2c9dd401d8396244a2d94f15c05c019aa2a3b4c.zip
tcl-e2c9dd401d8396244a2d94f15c05c019aa2a3b4c.tar.gz
tcl-e2c9dd401d8396244a2d94f15c05c019aa2a3b4c.tar.bz2
Fix [Bug 2964425].
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIORTrans.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c
index dcad087..eb40ce5 100644
--- a/generic/tclIORTrans.c
+++ b/generic/tclIORTrans.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIORTrans.c,v 1.13 2010/03/05 14:34:04 dkf Exp $
+ * RCS: @(#) $Id: tclIORTrans.c,v 1.14 2010/03/05 22:50:32 dkf Exp $
*/
#include <tclInt.h>
@@ -2665,8 +2665,6 @@ ForwardProc(
ForwardSetObjError(paramPtr, MarshallError(interp));
paramPtr->limit.max = -1;
}
-
- Tcl_DecrRefCount(resObj);
break;
default: