diff options
author | Ben Elliston <bje@gnu.org> | 2006-05-22 04:16:45 +0000 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2006-05-22 04:16:45 +0000 |
commit | 752549198513cf5f7b2fed288216285d01a4a699 (patch) | |
tree | 34e4b53657683c60d8f81679ceb56220ae1dfd8d /lib | |
parent | a7964f9e4ede95deac6e8fe46097864ab81a6ae8 (diff) | |
download | dejagnu-752549198513cf5f7b2fed288216285d01a4a699.zip dejagnu-752549198513cf5f7b2fed288216285d01a4a699.tar.gz dejagnu-752549198513cf5f7b2fed288216285d01a4a699.tar.bz2 |
* lib/debugger.exp (watcharray): Add `array' parameter. Rename
`type' parameter to `op' and update all uses in the proc.
(watchvar): Add `ignore' parameter for scalar variables.
Likewise, rename `type' to `op' and update throughout the proc.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/debugger.exp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/debugger.exp b/lib/debugger.exp index 13c6d78..10c6fdc 100644 --- a/lib/debugger.exp +++ b/lib/debugger.exp @@ -80,18 +80,18 @@ proc dumpwatch { args } { # Trap a watchpoint for an array. # -proc watcharray { element type} { +proc watcharray { array element op } { upvar [set array]($element) avar - switch $type { + switch $op { "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" } } } -proc watchvar { v type } { +proc watchvar { v ignored op } { upvar $v var - switch $type { + switch $op { "w" { puts "New value of $v is $var" } "r" { puts "$v (=$var) was just read" } "u" { puts "$v (=$var) was just unset" } |