summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2009-03-11 10:44:20 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2009-03-11 10:44:20 (GMT)
commitcd22f95d41584006165f126690c1183321de74f8 (patch)
treed1a9428eb28199b9307fc00e5ebd0345b50df5e5
parent0f443aa5cb126f232e2ffb85bb63b1e93f89564c (diff)
downloadtcl-cd22f95d41584006165f126690c1183321de74f8.zip
tcl-cd22f95d41584006165f126690c1183321de74f8.tar.gz
tcl-cd22f95d41584006165f126690c1183321de74f8.tar.bz2
* generic/tclBasic.c (TclNRCoroutineObjCmd): fix Tcl_Obj leak.
Diagnose and fix thx to GPS.
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclBasic.c3
2 files changed, 6 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 78eb759..7a6f9a6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2009-03-11 Miguel Sofer <msofer@users.sf.net>
+
+ * generic/tclBasic.c (TclNRCoroutineObjCmd): fix Tcl_Obj leak.
+ Diagnose and fix thx to GPS.
+
2009-03-09 Donal K. Fellows <dkf@users.sf.net>
* generic/tclCmdMZ.c (Tcl_TryObjCmd, TclNRTryObjCmd): Moved the
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 9f4d0dc..50230ba 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.386 2009/03/09 09:12:39 dkf Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.387 2009/03/11 10:44:20 msofer Exp $
*/
#include "tclInt.h"
@@ -8471,7 +8471,6 @@ TclNRCoroutineObjCmd(
TclGetString(cmdObjPtr);
TclFreeIntRep(cmdObjPtr);
cmdObjPtr->typePtr = NULL;
- Tcl_IncrRefCount(cmdObjPtr);
/*
* Set up the callback in caller execEnv and switch to the new execEnv.