diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-01-03 14:07:24 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-01-03 14:07:24 (GMT) |
| commit | 48d8cf61b7fd0af160956618fdf9e4cbccebf078 (patch) | |
| tree | 54dad526f36acf29f43fabc0987a1a640026950d /generic/tclCompile.c | |
| parent | c164d719c23ebe8d20d8420dc2345163a36878eb (diff) | |
| parent | 6470859885f92e276993f88322b090eca3cb24f2 (diff) | |
| download | tcl-48d8cf61b7fd0af160956618fdf9e4cbccebf078.zip tcl-48d8cf61b7fd0af160956618fdf9e4cbccebf078.tar.gz tcl-48d8cf61b7fd0af160956618fdf9e4cbccebf078.tar.bz2 | |
merge main dev branch
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. */ |