summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-11-03 12:48:08 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-11-03 12:48:08 (GMT)
commitecb5e9981dc6a833c08ccd3c8a2aba31db07061d (patch)
tree8fc7ea69a4c9b8e0663f45ef45bc77db6f9a29ec /generic/tclCompile.c
parentce7c13b7962d2ebcd432dfb05fffe812c4d172d2 (diff)
downloadtcl-ecb5e9981dc6a833c08ccd3c8a2aba31db07061d.zip
tcl-ecb5e9981dc6a833c08ccd3c8a2aba31db07061d.tar.gz
tcl-ecb5e9981dc6a833c08ccd3c8a2aba31db07061d.tar.bz2
Added compilation of [info object isa object] (i.e., object verification).
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c10
1 files changed, 8 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index d47e0f6..475a85e 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -487,14 +487,20 @@ InstructionDesc const tclInstructionTable[] = {
{"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. */
- {"tclooClass", 1, 0, 0, {OPERAND_NONE}},
+ {"tclooClass", 1, 0, 0, {OPERAND_NONE}},
/* Push the class of the TclOO object named at the top of the stack
* onto the stack.
* Stack: ... object => ... class */
- {"tclooNamespace", 1, 0, 0, {OPERAND_NONE}},
+ {"tclooNamespace", 1, 0, 0, {OPERAND_NONE}},
/* Push the namespace of the TclOO object named at the top of the
* stack onto the stack.
* Stack: ... object => ... namespace */
+ {"tclooIsObject", 1, 0, 0, {OPERAND_NONE}},
+ /* Push whether the value named at the top of the stack is a TclOO
+ * object (i.e., a boolean). Can corrupt the interpreter result
+ * despite not throwing, so not safe for use in a post-exception
+ * context.
+ * Stack: ... value => ... boolean */
{NULL, 0, 0, 0, {OPERAND_NONE}}
};