From e2c9dd401d8396244a2d94f15c05c019aa2a3b4c Mon Sep 17 00:00:00 2001 From: dkf Date: Fri, 5 Mar 2010 22:50:32 +0000 Subject: Fix [Bug 2964425]. --- ChangeLog | 5 +++++ generic/tclIORTrans.c | 4 +--- 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 + * 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 @@ -2665,8 +2665,6 @@ ForwardProc( ForwardSetObjError(paramPtr, MarshallError(interp)); paramPtr->limit.max = -1; } - - Tcl_DecrRefCount(resObj); break; default: -- cgit v0.12