diff options
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index e8e645b..7dc0bfe 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclVar.c,v 1.96 2004/10/22 12:29:53 msofer Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.97 2004/10/26 16:19:58 msofer Exp $ */ #ifdef STDC_HEADERS @@ -442,7 +442,7 @@ TclObjLookupVar(interp, part1Ptr, part2, flags, msg, createPart1, createPart2, && !(flags & TCL_GLOBAL_ONLY) /* careful: an undefined ns variable could * be hiding a valid global reference. */ - && !(varPtr->flags & VAR_UNDEFINED)))); + && !TclIsVarUndefined(varPtr)))); if (useReference && (varPtr->hPtr != NULL)) { /* * A straight global or namespace reference, use it. It isn't @@ -2268,8 +2268,8 @@ TclObjUnsetVar2(interp, part1Ptr, part2, flags) * If the variable was a namespace variable, decrement its reference count. */ - if (varPtr->flags & VAR_NAMESPACE_VAR) { - varPtr->flags &= ~VAR_NAMESPACE_VAR; + if (TclIsVarNamespaceVar(varPtr)) { + TclClearVarNamespaceVar(varPtr); varPtr->refCount--; } @@ -3779,8 +3779,8 @@ Tcl_VariableObjCmd(dummy, interp, objc, objv) * destroyed or until the variable is unset. */ - if (!(varPtr->flags & VAR_NAMESPACE_VAR)) { - varPtr->flags |= VAR_NAMESPACE_VAR; + if (!TclIsVarNamespaceVar(varPtr)) { + TclSetVarNamespaceVar(varPtr); varPtr->refCount++; } @@ -4253,8 +4253,8 @@ TclDeleteVars(iPtr, tablePtr) * variable. */ - if (varPtr->flags & VAR_NAMESPACE_VAR) { - varPtr->flags &= ~VAR_NAMESPACE_VAR; + if (TclIsVarNamespaceVar(varPtr)) { + TclClearVarNamespaceVar(varPtr); varPtr->refCount--; } @@ -4454,8 +4454,8 @@ DeleteArray(iPtr, arrayName, varPtr, flags) * harmless. */ - if (elPtr->flags & VAR_NAMESPACE_VAR) { - elPtr->flags &= ~VAR_NAMESPACE_VAR; + if (TclIsVarNamespaceVar(elPtr)) { + TclClearVarNamespaceVar(elPtr); elPtr->refCount--; } if (elPtr->refCount == 0) { |