diff options
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | lib/debugger.exp | 5 |
2 files changed, 9 insertions, 2 deletions
@@ -1,3 +1,9 @@ +2006-05-22 Ben Elliston <bje@gnu.org> + + * lib/debugger.exp (watcharray): Use switch, not case. + (watchvar): Likewise. + (bt): Add an explanatory comment. + 2006-04-03 Ben Elliston <bje@gnu.org> * lib/debugger.exp, lib/dejagnu.exp, lib/dg.exp, diff --git a/lib/debugger.exp b/lib/debugger.exp index 16d58bb..13c6d78 100644 --- a/lib/debugger.exp +++ b/lib/debugger.exp @@ -82,7 +82,7 @@ proc dumpwatch { args } { # proc watcharray { element type} { upvar [set array]($element) avar - case $type { + switch $type { "w" { puts "New value of [set array]($element) is $avar" } "r" { puts "[set array]($element) (= $avar) was just read" } "u" { puts "[set array]($element) (= $avar) was just unset" } @@ -91,7 +91,7 @@ proc watcharray { element type} { proc watchvar { v type } { upvar $v var - case $type { + switch $type { "w" { puts "New value of $v is $var" } "r" { puts "$v (=$var) was just read" } "u" { puts "$v (=$var) was just unset" } @@ -188,6 +188,7 @@ proc quit { } { } proc bt { } { + # The w command is provided by the Tcl debugger. puts "[w]" } |