Browse Source

* 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.
origin
Ben Elliston 20 years ago
parent
commit
7525491985
  1. 5
      ChangeLog
  2. 8
      lib/debugger.exp

5
ChangeLog

@ -1,5 +1,10 @@
2006-05-22 Ben Elliston <bje@gnu.org>
* 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.
* runtest.exp: Use switch, not case.
* lib/framework.exp (clone_output): Likewise.
(clear_xfail): Likewise.

8
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" }

Loading…
Cancel
Save