diff options
| author | dkf <dkf@noemail.net> | 2013-12-30 08:37:49 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2013-12-30 08:37:49 (GMT) |
| commit | 2a0228ca26d6caf19b1ce12a6f8e2429237e0aca (patch) | |
| tree | a8680fa7474bcf0220ce6342a82e0a07e23ef8ff /generic/tclCompile.c | |
| parent | 1b0b9d9cd8541a3e32f5c06f0acccec4b8222d0c (diff) | |
| download | tcl-2a0228ca26d6caf19b1ce12a6f8e2429237e0aca.zip tcl-2a0228ca26d6caf19b1ce12a6f8e2429237e0aca.tar.gz tcl-2a0228ca26d6caf19b1ce12a6f8e2429237e0aca.tar.bz2 | |
implement [namespace origin] in bytecode
FossilOrigin-Name: 1572fe02bd24fb75aba6534cfa5270559fc64266
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 4ce5a66..0732fe5 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -611,6 +611,11 @@ InstructionDesc const tclInstructionTable[] = { * with the contents of another. * Stack: ... string fromIdx toIdx replacement => ... newString */ + {"originCmd", 1, 0, 0, {OPERAND_NONE}}, + /* Reports which command was the origin (via namespace import chain) + * of the command named on the top of the stack. + * Stack: ... cmdName => ... fullOriginalCmdName */ + {NULL, 0, 0, 0, {OPERAND_NONE}} }; |