diff options
Diffstat (limited to 'lib/debugger.exp')
-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" } |