summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-11-02 20:39:10 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-11-02 20:39:10 (GMT)
commiteaaed023dfb41a1d60c320fccf77c54204c4143e (patch)
tree67b2592c64d18c1467931761849103c694912218 /generic
parentbcb829c828596a8ab002aaad7770dee9a395491b (diff)
downloadtcl-eaaed023dfb41a1d60c320fccf77c54204c4143e.zip
tcl-eaaed023dfb41a1d60c320fccf77c54204c4143e.tar.gz
tcl-eaaed023dfb41a1d60c320fccf77c54204c4143e.tar.bz2
reorder to preserve main BC development branch sequence better
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompile.c10
-rw-r--r--generic/tclCompile.h6
2 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 7036f6a..c390971 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -488,17 +488,17 @@ 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. */
- {"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}},
+ {"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 */
+ {"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. */
{NULL, 0, 0, 0, {OPERAND_NONE}}
};
diff --git a/generic/tclCompile.h b/generic/tclCompile.h
index cab517d..c860307 100644
--- a/generic/tclCompile.h
+++ b/generic/tclCompile.h
@@ -701,9 +701,9 @@ typedef struct ByteCode {
/* For compilation relating to TclOO */
#define INST_TCLOO_SELF 153
-#define INST_TCLOO_NEXT 154
-#define INST_TCLOO_CLASS 155
-#define INST_TCLOO_NS 156
+#define INST_TCLOO_CLASS 154
+#define INST_TCLOO_NS 155
+#define INST_TCLOO_NEXT 156
/* The last opcode */
#define LAST_INST_OPCODE 156