diff options
author | msofer <msofer@noemail.net> | 2002-07-15 22:18:01 (GMT) |
---|---|---|
committer | msofer <msofer@noemail.net> | 2002-07-15 22:18:01 (GMT) |
commit | 99443953e23270ae1d9b97cb5395a70008a723aa (patch) | |
tree | 716557af52e29f2dec87f80a04f9b29ab62cded9 /generic/tclInt.h | |
parent | 315bb354a6dae54dc94e25df3d19622dc7831caf (diff) | |
download | tcl-99443953e23270ae1d9b97cb5395a70008a723aa.zip tcl-99443953e23270ae1d9b97cb5395a70008a723aa.tar.gz tcl-99443953e23270ae1d9b97cb5395a70008a723aa.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.
FossilOrigin-Name: 6a9cd28b04d09f7b3dedf5cdd500cc772057a146
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, |