diff options
author | Ben Elliston <bje@gnu.org> | 2006-05-22 02:35:28 +0000 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2006-05-22 02:35:28 +0000 |
commit | 24ac1d99e898aa63020fbcd1409d62849f1b603a (patch) | |
tree | 2358b4436d11baf90019f5e5a73070a55110ba9e | |
parent | 974f31928753a191275425a979b303a9acab0489 (diff) | |
download | dejagnu-24ac1d99e898aa63020fbcd1409d62849f1b603a.zip dejagnu-24ac1d99e898aa63020fbcd1409d62849f1b603a.tar.gz dejagnu-24ac1d99e898aa63020fbcd1409d62849f1b603a.tar.bz2 |
* lib/debugger.exp (watcharray): Use switch, not case.
(watchvar): Likewise.
(bt): Add an explanatory comment.
-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]" } |