summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-05-15 18:32:14 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-05-15 18:32:14 (GMT)
commita0f895820ab77f2cf1212af9003addb1d1a3ea7c (patch)
tree003f5dca123ecd69d12a4c32f617c1ffacd41e46 /generic
parent5d1ba673ebd2c1d6ba7dd0d3d6095c27ba2838f9 (diff)
downloadtcl-a0f895820ab77f2cf1212af9003addb1d1a3ea7c.zip
tcl-a0f895820ab77f2cf1212af9003addb1d1a3ea7c.tar.gz
tcl-a0f895820ab77f2cf1212af9003addb1d1a3ea7c.tar.bz2
* generic/tclNamesp.c: Plugged memory leak related to
[namespace delete ::]. [Bug 1716782]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclNamesp.c10
1 files changed, 8 insertions, 2 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c
index 4f72e4c..8f42df6 100644
--- a/generic/tclNamesp.c
+++ b/generic/tclNamesp.c
@@ -19,7 +19,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclNamesp.c,v 1.31.2.13 2006/11/28 22:20:02 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclNamesp.c,v 1.31.2.14 2007/05/15 18:32:18 dgp Exp $
*/
#include "tclInt.h"
@@ -648,7 +648,13 @@ Tcl_DeleteNamespace(namespacePtr)
} else {
nsPtr->flags |= NS_DEAD;
}
- }
+ } else {
+ /*
+ * We didn't really kill it, so remove the KILLED marks, so
+ * it can get killed later, avoiding mem leaks
+ */
+ nsPtr->flags &= ~(NS_DYING|NS_KILLED);
+ }
}
}