summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclIORTrans.c4
2 files changed, 6 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 65db95d..77cd117 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
2010-03-05 Donal K. Fellows <dkf@users.sf.net>
+ * generic/tclIORTrans.c (ForwardProc): [Bug 2964425]: When cleaning
+ the stables, it is sometimes necessary to do more than the minimum. In
+ this case, rationalizing the variables for a forwarded limit? method
+ required removing an extra Tcl_DecrRefCount too.
+
* generic/tclOO.h, generic/tclOOInt.h: [Patch 2961556]: Change TclOO
to use the same style of function typedefs as Tcl, as this is about
the last chance to get this right.
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: