diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-12-06 09:33:14 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-12-06 09:33:14 (GMT) |
| commit | 54680ce5e2b52b6cb0a10e77a6627ea92369bcd1 (patch) | |
| tree | 20d495c6ada510e44ebce827414ca5d3a114ea76 /generic/tclCompile.h | |
| parent | c92c45037cf894a4599a8b1a8915575a7949dbf0 (diff) | |
| parent | 7631cbda15c13ff69b665f0b71ad20c866c00624 (diff) | |
| download | tcl-54680ce5e2b52b6cb0a10e77a6627ea92369bcd1.zip tcl-54680ce5e2b52b6cb0a10e77a6627ea92369bcd1.tar.gz tcl-54680ce5e2b52b6cb0a10e77a6627ea92369bcd1.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 26 |
1 files changed, 16 insertions, 10 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 1d21d39..f149cf6 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -586,8 +586,8 @@ typedef struct ByteCode { #define INST_CONTINUE 66 /* Opcodes 67 to 68 */ -#define INST_FOREACH_START4 67 -#define INST_FOREACH_STEP4 68 +#define INST_FOREACH_START4 67 /* DEPRECATED */ +#define INST_FOREACH_STEP4 68 /* DEPRECATED */ /* Opcodes 69 to 72 */ #define INST_BEGIN_CATCH4 69 @@ -768,19 +768,24 @@ typedef struct ByteCode { #define INST_EXPAND_DROP 165 +/* New foreach implementation */ +#define INST_FOREACH_START 166 +#define INST_FOREACH_STEP 167 +#define INST_FOREACH_END 168 + /* For compilation of [string trim] and related */ -#define INST_STR_TRIM 166 -#define INST_STR_TRIM_LEFT 167 -#define INST_STR_TRIM_RIGHT 168 +#define INST_STR_TRIM 169 +#define INST_STR_TRIM_LEFT 170 +#define INST_STR_TRIM_RIGHT 171 -#define INST_CONCAT_STK 169 +#define INST_CONCAT_STK 172 -#define INST_STR_UPPER 170 -#define INST_STR_LOWER 171 -#define INST_STR_TITLE 172 +#define INST_STR_UPPER 173 +#define INST_STR_LOWER 174 +#define INST_STR_TITLE 175 /* The last opcode */ -#define LAST_INST_OPCODE 172 +#define LAST_INST_OPCODE 175 /* * Table describing the Tcl bytecode instructions: their name (for displaying @@ -913,6 +918,7 @@ typedef struct ForeachInfo { } ForeachInfo; MODULE_SCOPE const AuxDataType tclForeachInfoType; +MODULE_SCOPE const AuxDataType tclNewForeachInfoType; #define FOREACHINFO(envPtr, index) \ ((ForeachInfo*)((envPtr)->auxDataArrayPtr[TclGetUInt4AtPtr(index)].clientData)) |