diff options
| author | Ben Elliston <bje@gnu.org> | 2016-03-28 11:51:41 +1100 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2016-03-28 11:51:41 +1100 |
| commit | 883ffd3e6dcedfccb39969fd9791e70c901410ec (patch) | |
| tree | c9026d0e7d39068361acf297d37b88725eae6b8a /lib/debugger.exp | |
| parent | a57bfcfb68c3ac388a5ba5b2baca8e8c1195690b (diff) | |
| download | dejagnu-883ffd3e6dcedfccb39969fd9791e70c901410ec.zip dejagnu-883ffd3e6dcedfccb39969fd9791e70c901410ec.tar.gz dejagnu-883ffd3e6dcedfccb39969fd9791e70c901410ec.tar.bz2 | |
* runtest.exp: Fixes identified by the Frink static analyser:
(1) use -- in switch commands for safety,
(2) remove unreachable return commands after error commands,
(3) replace abbreviated "info proc" with "info procs",
(4) use -- in unset commands for safety where the variable name
is itself a variable.
* lib/dg.exp: Likewise.
* lib/debugger.exp: Likewise.
* lib/framework.exp: Likewise.
* lib/remote.exp: Likewise.
* lib/target.exp: Likewise.
* lib/targetdb.exp: Likewise.
* lib/telnet.exp: Likewise.
* lib/utils.exp: Likewise.
Diffstat (limited to 'lib/debugger.exp')
| -rw-r--r-- | lib/debugger.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/debugger.exp b/lib/debugger.exp index faeadd2..6b1ec65 100644 --- a/lib/debugger.exp +++ b/lib/debugger.exp @@ -82,7 +82,7 @@ proc dumpwatch { args } { # proc watcharray { array element op } { upvar [set array]($element) avar - switch $op { + 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" } @@ -91,7 +91,7 @@ proc watcharray { array element op } { proc watchvar { v ignored op } { upvar $v var - switch $op { + switch -- $op { "w" { puts "New value of $v is $var" } "r" { puts "$v (=$var) was just read" } "u" { puts "$v (=$var) was just unset" } |