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/tclInt.decls | |
| 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/tclInt.decls')
| -rw-r--r-- | generic/tclInt.decls | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 973a7bd..258498a 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -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.decls,v 1.51 2002/06/17 22:52:51 hobbs Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.52 2002/07/15 22:18:04 msofer Exp $ library tcl @@ -237,7 +237,7 @@ declare 55 generic { # } declare 58 generic { Var * TclLookupVar(Tcl_Interp *interp, char *part1, CONST char *part2, - int flags, char *msg, int createPart1, int createPart2, + int flags, CONST char *msg, int createPart1, int createPart2, Var **arrayPtrPtr) } # Replaced by Tcl_FSMatchInDirectory in 8.4 @@ -467,7 +467,7 @@ declare 119 generic { Tcl_ResolverInfo *resInfo) } declare 120 generic { - Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, char *name, + Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags) } declare 121 generic { |