diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-02 20:39:10 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-02 20:39:10 (GMT) |
commit | eaaed023dfb41a1d60c320fccf77c54204c4143e (patch) | |
tree | 67b2592c64d18c1467931761849103c694912218 /generic/tclCompile.c | |
parent | bcb829c828596a8ab002aaad7770dee9a395491b (diff) | |
download | tcl-eaaed023dfb41a1d60c320fccf77c54204c4143e.zip tcl-eaaed023dfb41a1d60c320fccf77c54204c4143e.tar.gz tcl-eaaed023dfb41a1d60c320fccf77c54204c4143e.tar.bz2 |
reorder to preserve main BC development branch sequence better
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 10 |
1 files changed, 5 insertions, 5 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}} }; |