diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-14 23:05:00 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-11-14 23:05:00 (GMT) |
| commit | e9dca7fbd88ce6c7cc5afc264a2c667f5f0d98b6 (patch) | |
| tree | d61de78a8293a7d2a188189329afca632e2de56d /generic/tclCompile.h | |
| parent | 9bdde7aa4d7b94e1801005fcc63f1fe9953d216a (diff) | |
| download | tcl-e9dca7fbd88ce6c7cc5afc264a2c667f5f0d98b6.zip tcl-e9dca7fbd88ce6c7cc5afc264a2c667f5f0d98b6.tar.gz tcl-e9dca7fbd88ce6c7cc5afc264a2c667f5f0d98b6.tar.bz2 | |
Compile [info exists] into bytecode. Includes new instructions to support it.
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 618f704..711aa42 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -9,7 +9,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.83 2007/11/12 02:07:19 hobbs Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.84 2007/11/14 23:05:02 dkf Exp $ */ #ifndef _TCLCOMPILATION @@ -640,8 +640,14 @@ typedef struct ByteCode { #define INST_REGEXP 127 +/* For [info exists] compilation */ +#define INST_EXIST_SCALAR 128 +#define INST_EXIST_ARRAY 139 +#define INST_EXIST_ARRAY_STK 130 +#define INST_EXIST_STK 131 + /* The last opcode */ -#define LAST_INST_OPCODE 127 +#define LAST_INST_OPCODE 131 /* * Table describing the Tcl bytecode instructions: their name (for displaying |