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 /lib/debugger.exp | |
| 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.
Diffstat (limited to 'lib/debugger.exp')
| -rw-r--r-- | lib/debugger.exp | 5 |
1 files changed, 3 insertions, 2 deletions
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]" } |