diff options
author | Andrew Burgess <aburgess@redhat.com> | 2022-11-14 14:45:05 +0000 |
---|---|---|
committer | Andrew Burgess <aburgess@redhat.com> | 2022-11-28 21:04:10 +0000 |
commit | d4c4542312ca16fe83c8dc8d8acce4667aa7992c (patch) | |
tree | eccc8cb7c83345f424089a039f772ca200679442 /gdb/testsuite/boards | |
parent | f50c72da4dc7ab67ea244e9c6e97404a04700c2d (diff) | |
download | binutils-d4c4542312ca16fe83c8dc8d8acce4667aa7992c.zip binutils-d4c4542312ca16fe83c8dc8d8acce4667aa7992c.tar.gz binutils-d4c4542312ca16fe83c8dc8d8acce4667aa7992c.tar.bz2 |
gdb/testsuite: remove use of then keyword from library files
The canonical form of 'if' in modern TCL is 'if {} {}'. But there's
still a bunch of places in the testsuite where we make use of the
'then' keyword, and sometimes these get copies into new tests, which
just spreads poor practice.
This commit removes all use of the 'then' keyword from the testsuite
library files (in boards/, config/, and lib/). Previous commits have
removed all uses of the 'then' keyword from the test script files,
this commit just cleans up the library files.
There should be no changes in what is tested after this commit.
Diffstat (limited to 'gdb/testsuite/boards')
-rw-r--r-- | gdb/testsuite/boards/native-extended-gdbserver.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/boards/native-extended-gdbserver.exp b/gdb/testsuite/boards/native-extended-gdbserver.exp index 67acc6f..88857d6 100644 --- a/gdb/testsuite/boards/native-extended-gdbserver.exp +++ b/gdb/testsuite/boards/native-extended-gdbserver.exp @@ -113,7 +113,7 @@ proc gdb_reload { {inferior_args {}} } { # to a separate non-dbx testcase, we should be able to remove this. proc gdb_load { arg } { if { $arg != "" } { - if [gdb_file_cmd $arg] then { return -1 } + if {[gdb_file_cmd $arg]} { return -1 } } return [extended_gdbserver_load_last_file] @@ -129,7 +129,7 @@ proc mi_gdb_load { arg } { global mi_gdb_prompt set res [extended_gdbserver_mi_gdb_load $arg] - if { $res } then { return -1 } + if {$res} { return -1 } send_gdb "100-gdb-set remote exec-file $arg\n" gdb_expect 10 { |