merge dkf-compile-misc-info

1 files changed, 8 insertions, 0 deletions

diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 188b3f8..7036f6a 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -491,6 +491,14 @@ InstructionDesc const tclInstructionTable[] = {
     {"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. */
+   {"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}},
+	/* Push the namespace of the TclOO object named at the top of the
+	 * stack onto the stack.
+	 * Stack:  ... object => ... namespace */
 
     {NULL, 0, 0, 0, {OPERAND_NONE}}
 };