summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2004-10-26 16:19:56 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2004-10-26 16:19:56 (GMT)
commit22f4aa867d7112c53b76fb98ac9bdd4b7970ed9f (patch)
tree498730ffc87e4fabf3561370a616fc26f1716cd0 /generic/tclVar.c
parent30c8fdf6ad1da3979ac851dfe46e1c45636fd427 (diff)
downloadtcl-22f4aa867d7112c53b76fb98ac9bdd4b7970ed9f.zip
tcl-22f4aa867d7112c53b76fb98ac9bdd4b7970ed9f.tar.gz
tcl-22f4aa867d7112c53b76fb98ac9bdd4b7970ed9f.tar.bz2
removed more direct references to the VAR flags, replaced with access
macros.
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r--generic/tclVar.c20
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) {