diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-01-03 10:23:01 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-01-03 10:23:01 (GMT) |
| commit | d5dacc899b5d76aba7cbc9caaadc6a63b51ee98b (patch) | |
| tree | e893b3dd616ac686c87b773ce210095f78318130 /generic/tclCompile.c | |
| parent | 73068b502f70bfd44db5917dccbfc40b8d36f711 (diff) | |
| parent | e82d1f6be8957bb381a19b3663a3e0c34c1480b3 (diff) | |
| download | tcl-d5dacc899b5d76aba7cbc9caaadc6a63b51ee98b.zip tcl-d5dacc899b5d76aba7cbc9caaadc6a63b51ee98b.tar.gz tcl-d5dacc899b5d76aba7cbc9caaadc6a63b51ee98b.tar.bz2 | |
Added mechanism for pre-parsing built-in ensembles even when they are not going
to generate specific code. This provides a good speedup in some cases.
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 309682d..45a74d7 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -529,6 +529,11 @@ InstructionDesc const tclInstructionTable[] = { /* Forces the variable indexed by opnd to be an array. Does not touch * the stack. */ + {"invokeReplace", 6, INT_MIN, 2, {OPERAND_UINT4,OPERAND_UINT1}}, + /* Invoke command named objv[0], replacing the first two words with + * the word at the top of the stack; + * <objc,objv> = <op4,top op4 after popping 1> */ + {NULL, 0, 0, 0, {OPERAND_NONE}} }; |