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/tclCompile.c | |
| 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/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 3ee0fdf..b331551 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -448,6 +448,11 @@ InstructionDesc const tclInstructionTable[] = { /* Push the argument words to a stack depth (i.e., [info level <n>]) * of the interpreter as an object on the stack. * Stack: ... depth => ... argList */ + {"resolveCmd", 1, 0, 0, {OPERAND_NONE}}, + /* Resolves the command named on the top of the stack to its fully + * qualified version, or produces the empty string if no such command + * exists. Never generates errors. + * Stack: ... cmdName => ... fullCmdName */ {"tclooSelf", 1, +1, 0, {OPERAND_NONE}}, /* Push the identity of the current TclOO object (i.e., the name of * its current public access command) on the stack. */ |