summaryrefslogtreecommitdiffstats
path: root/generic
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 /generic
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.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c3
1 files changed, 1 insertions, 2 deletions
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.