diff options
author | hobbs <hobbs> | 2001-05-15 20:07:38 (GMT) |
---|---|---|
committer | hobbs <hobbs> | 2001-05-15 20:07:38 (GMT) |
commit | 27473eef50f36750267fc3cc88717f3aab547004 (patch) | |
tree | d8d2560d0ed98b1b9b62bbe240f74a464ac12e51 /generic/tclCompile.h | |
parent | 951c1014fc8daaae2ba8d1c6d4f128314f945311 (diff) | |
download | tcl-dev_hobbs_branch.zip tcl-dev_hobbs_branch.tar.gz tcl-dev_hobbs_branch.tar.bz2 |
refactored varname pushing code and some of the bytecode instructions
dev_hobbs_branch
Diffstat (limited to 'generic/tclCompile.h')
-rw-r--r-- | generic/tclCompile.h | 30 |
1 files changed, 14 insertions, 16 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 5c53f43..2cdad55 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -7,7 +7,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.h,v 1.14.4.1 2001/05/11 20:47:44 hobbs Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.14.4.2 2001/05/15 20:07:38 hobbs Exp $ */ #ifndef _TCLCOMPILATION @@ -502,29 +502,27 @@ typedef struct ByteCode { #define INST_STR_INDEX 77 #define INST_STR_MATCH 78 -/* Opcodes 78 to 79 */ +/* Opcodes 78 to 81 */ #define INST_LIST 79 #define INST_LIST_INDEX 80 #define INST_LIST_LENGTH 81 #define INST_APPEND_SCALAR1 82 #define INST_APPEND_SCALAR4 83 -#define INST_APPEND_SCALAR_STK 84 -#define INST_APPEND_ARRAY1 85 -#define INST_APPEND_ARRAY4 86 -#define INST_APPEND_ARRAY_STK 87 -#define INST_APPEND_STK 88 - -#define INST_LAPPEND_SCALAR1 89 -#define INST_LAPPEND_SCALAR4 90 -#define INST_LAPPEND_SCALAR_STK 91 -#define INST_LAPPEND_ARRAY1 92 -#define INST_LAPPEND_ARRAY4 93 -#define INST_LAPPEND_ARRAY_STK 94 -#define INST_LAPPEND_STK 95 +#define INST_APPEND_ARRAY1 84 +#define INST_APPEND_ARRAY4 85 +#define INST_APPEND_ARRAY_STK 86 +#define INST_APPEND_STK 87 + +#define INST_LAPPEND_SCALAR1 88 +#define INST_LAPPEND_SCALAR4 89 +#define INST_LAPPEND_ARRAY1 90 +#define INST_LAPPEND_ARRAY4 91 +#define INST_LAPPEND_ARRAY_STK 92 +#define INST_LAPPEND_STK 93 /* The last opcode */ -#define LAST_INST_OPCODE 95 +#define LAST_INST_OPCODE 93 /* * Table describing the Tcl bytecode instructions: their name (for |