diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-19 14:17:18 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-19 14:17:18 (GMT) |
commit | 72693da145d4b3a7f165eb5cdff0bd0defb87993 (patch) | |
tree | 9acfedf6c37e529d4f62831e62de906fb972fb6f /generic/tclCompile.c | |
parent | 8f82c0e9f68bc243d27e129a7163a122e5cf254b (diff) | |
download | tcl-72693da145d4b3a7f165eb5cdff0bd0defb87993.zip tcl-72693da145d4b3a7f165eb5cdff0bd0defb87993.tar.gz tcl-72693da145d4b3a7f165eb5cdff0bd0defb87993.tar.bz2 |
yet another small introspector: [self]
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 4c84953..3ee0fdf 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -448,6 +448,9 @@ InstructionDesc const tclInstructionTable[] = { /* Push the argument words to a stack depth (i.e., [info level <n>]) * of the interpreter as an object on the stack. * Stack: ... depth => ... argList */ + {"tclooSelf", 1, +1, 0, {OPERAND_NONE}}, + /* Push the identity of the current TclOO object (i.e., the name of + * its current public access command) on the stack. */ {NULL, 0, 0, 0, {OPERAND_NONE}} }; |