Tcl Source Code

Artifact 7d82c6a001485c97435cfca321c1d7014a9aae95:

Attachment "varleak2.patch" to ticket [604239ffff] added by msofer 2002-09-04 20:29:18.

---

Index: generic/tclVar.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclVar.c,v
retrieving revision 1.65
diff -u -r1.65 tclVar.c
--- generic/tclVar.c	3 Sep 2002 19:52:01 -0000	1.65
+++ generic/tclVar.c	4 Sep 2002 13:23:22 -0000
@@ -4783,6 +4783,10 @@
 	}
 	TclSetVarUndefined(elPtr);
 	TclSetVarScalar(elPtr);
+	if (elPtr->flags & VAR_NAMESPACE_VAR) {
+	    elPtr->flags &= ~VAR_NAMESPACE_VAR;
+	    elPtr->refCount--;
+	}
 	if (elPtr->refCount == 0) {
 	    ckfree((char *) elPtr); /* element Vars are VAR_IN_HASHTABLE */
 	}