Added [dict exists] compilation; implementation is 95% shared with [dict get].

1 files changed, 13 insertions, 12 deletions

diff --git a/generic/tclCompile.h b/generic/tclCompile.h
index 2ea4209..24f9464 100644
--- a/generic/tclCompile.h
+++ b/generic/tclCompile.h
@@ -676,29 +676,30 @@ typedef struct ByteCode {
 #define INST_UNSET_ARRAY_STK		136
 #define INST_UNSET_STK			137
 
-/* For [dict with] compilation */
+/* For [dict with] and [dict exists] compilation */
 #define INST_DICT_EXPAND		138
 #define INST_DICT_RECOMBINE_STK		139
 #define INST_DICT_RECOMBINE_IMM		140
+#define INST_DICT_EXISTS		141
 
 /* For [string map] and [regsub] compilation */
-#define INST_STR_MAP			141
-#define INST_STR_FIND			142
-#define INST_STR_RANGE_IMM		143
+#define INST_STR_MAP			142
+#define INST_STR_FIND			143
+#define INST_STR_RANGE_IMM		144
 
 /* For operations to do with coroutines */
-#define INST_YIELD			144
-#define INST_COROUTINE_NAME		145
+#define INST_YIELD			145
+#define INST_COROUTINE_NAME		146
 
 /* For compilation of basic information operations */
-#define INST_NS_CURRENT			146
-#define INST_INFO_LEVEL_NUM		147
-#define INST_INFO_LEVEL_ARGS		148
-#define INST_RESOLVE_COMMAND		149
-#define INST_TCLOO_SELF			150
+#define INST_NS_CURRENT			147
+#define INST_INFO_LEVEL_NUM		148
+#define INST_INFO_LEVEL_ARGS		149
+#define INST_RESOLVE_COMMAND		150
+#define INST_TCLOO_SELF			151
 
 /* The last opcode */
-#define LAST_INST_OPCODE		150
+#define LAST_INST_OPCODE		151
 
 /*
  * Table describing the Tcl bytecode instructions: their name (for displaying