diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2004-10-26 16:19:56 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2004-10-26 16:19:56 (GMT) |
| commit | 22f4aa867d7112c53b76fb98ac9bdd4b7970ed9f (patch) | |
| tree | 498730ffc87e4fabf3561370a616fc26f1716cd0 /generic/tclInt.h | |
| parent | 30c8fdf6ad1da3979ac851dfe46e1c45636fd427 (diff) | |
| download | tcl-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/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 6485187..a13d351 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.187 2004/10/25 01:06:51 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.188 2004/10/26 16:19:58 msofer Exp $ */ #ifndef _TCLINT @@ -536,6 +536,11 @@ typedef struct Var { #define TclClearVarTraceActive(varPtr) \ (varPtr)->flags &= ~VAR_TRACE_ACTIVE +#define TclSetVarNamespaceVar(varPtr) \ + (varPtr)->flags |= VAR_NAMESPACE_VAR + +#define TclClearVarNamespaceVar(varPtr) \ + (varPtr)->flags &= ~VAR_NAMESPACE_VAR /* * Macros to read various flag bits of variables. |