diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-26 07:32:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-26 07:32:47 (GMT) |
| commit | ecb8fcec67eaa9ecc3902b669ad242dd76038562 (patch) | |
| tree | adc7c064741a37afc892c059151bdb56e457191a /generic/tclInt.h | |
| parent | 8c9ab6bacf51046f3bb722ac655d9a3ddfd237d2 (diff) | |
| download | tcl-ecb8fcec67eaa9ecc3902b669ad242dd76038562.zip tcl-ecb8fcec67eaa9ecc3902b669ad242dd76038562.tar.gz tcl-ecb8fcec67eaa9ecc3902b669ad242dd76038562.tar.bz2 | |
Compile [namespace which -command]; big performance saving in some contexts.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 1bf52d1..448a7cd 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3597,6 +3597,9 @@ MODULE_SCOPE int TclCompileNamespaceCurrentCmd(Tcl_Interp *interp, MODULE_SCOPE int TclCompileNamespaceUpvarCmd(Tcl_Interp *interp, Tcl_Parse *parsePtr, Command *cmdPtr, struct CompileEnv *envPtr); +MODULE_SCOPE int TclCompileNamespaceWhichCmd(Tcl_Interp *interp, + Tcl_Parse *parsePtr, Command *cmdPtr, + struct CompileEnv *envPtr); MODULE_SCOPE int TclCompileNoOp(Tcl_Interp *interp, Tcl_Parse *parsePtr, Command *cmdPtr, struct CompileEnv *envPtr); |