diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2002-07-15 22:18:02 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2002-07-15 22:18:02 (GMT) |
| commit | 238c1dc36a4a340625f96ed76c46bd93872562ac (patch) | |
| tree | 716557af52e29f2dec87f80a04f9b29ab62cded9 /generic/tclNamesp.c | |
| parent | 1d0aa1a4beb25c12aa52099b1de6c4227578333a (diff) | |
| download | tcl-238c1dc36a4a340625f96ed76c46bd93872562ac.zip tcl-238c1dc36a4a340625f96ed76c46bd93872562ac.tar.gz tcl-238c1dc36a4a340625f96ed76c46bd93872562ac.tar.bz2 | |
* generic/tclVar.c: refactorisation to reuse already looked-up Var
pointers; definition of three new Tcl_Obj types to cache variable
name parsing and lookup for later reuse; modification of internal
functions to profit from the caching.
* generic/tclInt.decls:
* generic/tclInt.h:
* generic/tclIntDecls.h:
* generic/tclNamesp.c: adding CONST qualifiers to variable names
passed to Tcl_FindNamespaceVar and to variable resolvers; adding
CONST qualifier to the 'msg' argument to TclLookupVar. Needed to
avoid code duplication in the new tclVar.c code.
* tests/set-old.test:
* tests/var.test: slight modification of error messages due to the
modifications in the tclVar.c code.
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index eaad5df..32ffb2b 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -19,7 +19,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNamesp.c,v 1.30 2002/04/18 18:05:57 msofer Exp $ + * RCS: @(#) $Id: tclNamesp.c,v 1.31 2002/07/15 22:18:07 msofer Exp $ */ #include "tclInt.h" @@ -2072,7 +2072,7 @@ Tcl_Var Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) Tcl_Interp *interp; /* The interpreter in which to find the * variable. */ - char *name; /* Variable's name. If it starts with "::", + CONST char *name; /* Variable's name. If it starts with "::", * will be looked up in global namespace. * Else, looked up first in contextNsPtr * (current namespace if contextNsPtr is |