Attachment "undo.patch" to
ticket [1740700fff]
added by
dgp
2007-09-10 03:59:22.
Index: generic/tclNamesp.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclNamesp.c,v
retrieving revision 1.149
diff -u -r1.149 tclNamesp.c
--- generic/tclNamesp.c 9 Sep 2007 19:28:31 -0000 1.149
+++ generic/tclNamesp.c 9 Sep 2007 20:52:35 -0000
@@ -2693,7 +2693,7 @@
/* Check that the ResolvedNsName is still valid. */
resNamePtr = (ResolvedNsName *) objPtr->internalRep.twoPtrValue.ptr1;
nsPtr = resNamePtr->nsPtr;
- if (!(nsPtr->flags & NS_DYING)
+ if (!(nsPtr->flags & NS_DEAD)
&& ((resNamePtr->refNsPtr == NULL) || (resNamePtr->refNsPtr
== (Namespace *) Tcl_GetCurrentNamespace(interp)))) {
*nsPtrPtr = (Tcl_Namespace *) nsPtr;
@@ -4668,7 +4668,7 @@
* that holds a reference to it.
*/
- if ((nsPtr != NULL) && !(nsPtr->flags & NS_DYING)) {
+ if ((nsPtr != NULL) && !(nsPtr->flags & NS_DEAD)) {
nsPtr->refCount++;
resNamePtr = (ResolvedNsName *) ckalloc(sizeof(ResolvedNsName));
resNamePtr->nsPtr = nsPtr;