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.h | |
| 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.h')
| -rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 031d4f6..5604129 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.97 2002/07/15 03:48:39 dgp Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.98 2002/07/15 22:18:04 msofer Exp $ */ #ifndef _TCLINT @@ -91,11 +91,11 @@ typedef struct Tcl_ResolvedVarInfo { typedef int (Tcl_ResolveCompiledVarProc) _ANSI_ARGS_(( - Tcl_Interp* interp, char* name, int length, + Tcl_Interp* interp, CONST char* name, int length, Tcl_Namespace *context, Tcl_ResolvedVarInfo **rPtr)); typedef int (Tcl_ResolveVarProc) _ANSI_ARGS_(( - Tcl_Interp* interp, char* name, Tcl_Namespace *context, + Tcl_Interp* interp, CONST char* name, Tcl_Namespace *context, int flags, Tcl_Var *rPtr)); typedef int (Tcl_ResolveCmdProc) _ANSI_ARGS_((Tcl_Interp* interp, |