diff options
| author | dkf <dkf@noemail.net> | 2013-01-03 14:07:24 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2013-01-03 14:07:24 (GMT) |
| commit | 2875287f78d85c296920b45805afbc19f92bd9b7 (patch) | |
| tree | 54dad526f36acf29f43fabc0987a1a640026950d /generic/tclCompile.c | |
| parent | fe8d3ac70166694611fe2ace15c8ce82e5b0a3bf (diff) | |
| parent | 8c0c8d0770b4990cd505e9b092215d3f8cb28e29 (diff) | |
| download | tcl-2875287f78d85c296920b45805afbc19f92bd9b7.zip tcl-2875287f78d85c296920b45805afbc19f92bd9b7.tar.gz tcl-2875287f78d85c296920b45805afbc19f92bd9b7.tar.bz2 | |
merge main dev branch
FossilOrigin-Name: b7fcd3c212fccfd56a73e38d5b49f4c02ed9de78
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 e7462e6..3ee7f3b 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -530,6 +530,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> */ + {"tclooNext", 2, INT_MIN, 1, {OPERAND_UINT1}}, /* Push the identity of the current TclOO object (i.e., the name of * its current public access command) on the stack. */ |