Artifact
ba38158caff5afbee45b5bd0d16786adf0826bb9:
Attachment "delvar.patch" to
ticket [605121ff]
added by
dgp
2002-09-06 01:27:58.
Index: generic/tclVar.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclVar.c,v
retrieving revision 1.66
diff -u -r1.66 tclVar.c
--- generic/tclVar.c 4 Sep 2002 15:18:53 -0000 1.66
+++ generic/tclVar.c 5 Sep 2002 18:21:34 -0000
@@ -4506,9 +4506,12 @@
flags = TCL_TRACE_UNSETS;
if (tablePtr == &iPtr->globalNsPtr->varTable) {
- flags |= (TCL_INTERP_DESTROYED | TCL_GLOBAL_ONLY);
+ flags |= TCL_GLOBAL_ONLY;
} else if (tablePtr == &currNsPtr->varTable) {
flags |= TCL_NAMESPACE_ONLY;
+ }
+ if (Tcl_InterpDeleted(interp)) {
+ flags |= TCL_INTERP_DESTROYED;
}
for (hPtr = Tcl_FirstHashEntry(tablePtr, &search); hPtr != NULL;
