diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-10-26 07:32:47 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-10-26 07:32:47 (GMT) |
| commit | f9fde49e1eb834987018919cb86b5a2af5180b87 (patch) | |
| tree | adc7c064741a37afc892c059151bdb56e457191a /generic/tclAssembly.c | |
| parent | 3119098a801650d1e321ecfa669a82249bf7e368 (diff) | |
| download | tcl-f9fde49e1eb834987018919cb86b5a2af5180b87.zip tcl-f9fde49e1eb834987018919cb86b5a2af5180b87.tar.gz tcl-f9fde49e1eb834987018919cb86b5a2af5180b87.tar.bz2 | |
Compile [namespace which -command]; big performance saving in some contexts.
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 132ee68..27720c7 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -461,6 +461,7 @@ static const TalInstDesc TalInstructionTable[] = { 0, 1}, {"pushResult", ASSEM_1BYTE, INST_PUSH_RESULT, 0, 1}, {"regexp", ASSEM_REGEXP, INST_REGEXP, 2, 1}, + {"resolveCmd", ASSEM_1BYTE, INST_RESOLVE_COMMAND, 1, 1}, {"reverse", ASSEM_REVERSE, INST_REVERSE, INT_MIN,-1-0}, {"rshift", ASSEM_1BYTE, INST_RSHIFT, 2, 1}, {"store", ASSEM_LVT, (INST_STORE_SCALAR1<<8 @@ -507,7 +508,8 @@ static const unsigned char NonThrowingByteCodes[] = { INST_NOP, /* 132 */ INST_NS_CURRENT, /* 141 */ INST_COROUTINE_NAME, /* 142 */ - INST_INFO_LEVEL_NUM /* 143 */ + INST_INFO_LEVEL_NUM, /* 143 */ + INST_RESOLVE_COMMAND /* 145 */ }; /* |