diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-12-31 02:39:40 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-12-31 02:39:40 (GMT) |
commit | 42b09bbed6f6321e1ef37e138d47cb0a508d3f93 (patch) | |
tree | d6877b1ccb35b9e6c72036640ff67ae649d83c1f /generic/tclCompile.c | |
parent | e0230df857c0b68a377034f56e3aa424feceb5a1 (diff) | |
download | tcl-42b09bbed6f6321e1ef37e138d47cb0a508d3f93.zip tcl-42b09bbed6f6321e1ef37e138d47cb0a508d3f93.tar.gz tcl-42b09bbed6f6321e1ef37e138d47cb0a508d3f93.tar.bz2 |
Working towards more efficient treatment of non-bytecoded ensemble subcommands.
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..c052531 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", 5, INT_MIN, 1, {OPERAND_UINT4}}, + /* 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}} }; |