diff options
author | dkf <dkf@noemail.net> | 2010-01-30 16:33:25 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2010-01-30 16:33:25 (GMT) |
commit | 7e37483df3876ecf673159037be75061be103a47 (patch) | |
tree | 8f37ec0b8c0aca813318fc602941b066f8fd80f2 /generic/tclCompile.h | |
parent | c3c0ab36f043e7a119a359618966fb63d7945f9a (diff) | |
download | tcl-7e37483df3876ecf673159037be75061be103a47.zip tcl-7e37483df3876ecf673159037be75061be103a47.tar.gz tcl-7e37483df3876ecf673159037be75061be103a47.tar.bz2 |
Make the [unset] command be bytecode compiled.
FossilOrigin-Name: 211541cc9ec23f38b93e7343a5cfefa2b9412cf7
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 |