Added a scheme to allow aux-data to be printed out for debugging. For this to work, immediate operands referring to aux-data must be identified as such in the instruction descriptor table using OPERAND_AUX4 (all are always 4 bytes).

Rewrote the compiled [dict update] so that it stores critical non-varying data in an aux-data value instead of a (shimmerable) literal. [Bug 1671001]

1 files changed, 17 insertions, 1 deletions

diff --git a/tests/dict.test b/tests/dict.test
index cf9fc1f..c6e8987 100644
--- a/tests/dict.test
+++ b/tests/dict.test
@@ -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: dict.test,v 1.19 2006/08/09 13:51:02 dkf Exp $
+# RCS: @(#) $Id: dict.test,v 1.20 2007/03/02 10:32:13 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -1042,6 +1042,22 @@ test dict-21.13 {dict update command: compilation} {
     }
     getOrder [dicttest {a 1 c 2}] b c
 } {b 1 c 2 2}
+test dict-21.14 {dict update command: compilation} {
+    proc dicttest x {
+	set indices {2 3}
+	trace add variable aa write "string length \$indices ;#"
+	dict update x k aa l bb {}
+    }
+    dicttest {k 1 l 2}
+} {}
+test dict-21.15 {dict update command: compilation} {
+    proc dicttest x {
+	set indices {2 3}
+	trace add variable aa read "string length \$indices ;#"
+	dict update x k aa l bb {}
+    }
+    dicttest {k 1 l 2}
+} {}
 
 test dict-22.1 {dict with command} -body {
     dict with