diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-30 16:33:25 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-30 16:33:25 (GMT) |
| commit | 1543f6fbfc86e643435f8db696b104c0327f92e7 (patch) | |
| tree | 8f37ec0b8c0aca813318fc602941b066f8fd80f2 /generic/tclCompile.h | |
| parent | 8f9f9d5b20e83bc7ee369eb5a7ba6d66076bf0e6 (diff) | |
| download | tcl-1543f6fbfc86e643435f8db696b104c0327f92e7.zip tcl-1543f6fbfc86e643435f8db696b104c0327f92e7.tar.gz tcl-1543f6fbfc86e643435f8db696b104c0327f92e7.tar.bz2 | |
Make the [unset] command be bytecode compiled.
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 3c514d0..18dad76 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.121 2010/01/21 17:23:49 msofer Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.122 2010/01/30 16:33:25 dkf Exp $ */ #ifndef _TCLCOMPILATION @@ -672,8 +672,14 @@ typedef struct ByteCode { #define INST_NOP 132 #define INST_RETURN_CODE_BRANCH 133 +/* For [unset] compilation */ +#define INST_UNSET_SCALAR 134 +#define INST_UNSET_ARRAY 135 +#define INST_UNSET_ARRAY_STK 136 +#define INST_UNSET_STK 137 + /* The last opcode */ -#define LAST_INST_OPCODE 133 +#define LAST_INST_OPCODE 137 /* * Table describing the Tcl bytecode instructions: their name (for displaying |