gdb/testsuite: remove use of then keyword from gdb.ada/*.exp
authorAndrew Burgess <aburgess@redhat.com>
Mon, 14 Nov 2022 10:55:35 +0000 (10:55 +0000)
committerAndrew Burgess <aburgess@redhat.com>
Mon, 28 Nov 2022 21:04:09 +0000 (21:04 +0000)
commited7fbdd033a272ff0d7d82c2153d7d0fade80d26
tree16965f0ee3fdcc1e27ef8fb93fdc505a8c4f2deb
parente2afece894f0de7990997792e3781cf925a011a0
gdb/testsuite: remove use of then keyword from gdb.ada/*.exp

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 gdb.ada/
test script directory.

There should be no changes in what is tested after this commit.
51 files changed:
gdb/testsuite/gdb.ada/O2_float_param.exp
gdb/testsuite/gdb.ada/access_tagged_param.exp
gdb/testsuite/gdb.ada/addr_arith.exp
gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp
gdb/testsuite/gdb.ada/arr_arr.exp
gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp
gdb/testsuite/gdb.ada/array_bounds.exp
gdb/testsuite/gdb.ada/array_return.exp
gdb/testsuite/gdb.ada/arrayptr.exp
gdb/testsuite/gdb.ada/bp_c_mixed_case.exp
gdb/testsuite/gdb.ada/bp_inlined_func.exp
gdb/testsuite/gdb.ada/call_pn.exp
gdb/testsuite/gdb.ada/catch_assert_if.exp
gdb/testsuite/gdb.ada/catch_ex.exp
gdb/testsuite/gdb.ada/catch_ex_std.exp
gdb/testsuite/gdb.ada/convvar_comp.exp
gdb/testsuite/gdb.ada/disc_arr_bound.exp
gdb/testsuite/gdb.ada/discrete-char.exp
gdb/testsuite/gdb.ada/dot_all.exp
gdb/testsuite/gdb.ada/dyn_loc.exp
gdb/testsuite/gdb.ada/dyn_stride.exp
gdb/testsuite/gdb.ada/excep_handle.exp
gdb/testsuite/gdb.ada/frame_args.exp
gdb/testsuite/gdb.ada/fun_in_declare.exp
gdb/testsuite/gdb.ada/ghost.exp
gdb/testsuite/gdb.ada/info_addr_mixed_case.exp
gdb/testsuite/gdb.ada/info_auto_lang.exp
gdb/testsuite/gdb.ada/info_exc.exp
gdb/testsuite/gdb.ada/local-enum.exp
gdb/testsuite/gdb.ada/mi_catch_assert.exp
gdb/testsuite/gdb.ada/mi_catch_ex.exp
gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp
gdb/testsuite/gdb.ada/mi_ex_cond.exp
gdb/testsuite/gdb.ada/mi_task_arg.exp
gdb/testsuite/gdb.ada/mi_task_info.exp
gdb/testsuite/gdb.ada/minsyms.exp
gdb/testsuite/gdb.ada/mod_from_name.exp
gdb/testsuite/gdb.ada/optim_drec.exp
gdb/testsuite/gdb.ada/ptype_tagged_param.exp
gdb/testsuite/gdb.ada/rec_comp.exp
gdb/testsuite/gdb.ada/rec_return.exp
gdb/testsuite/gdb.ada/ref_param.exp
gdb/testsuite/gdb.ada/scalar_storage.exp
gdb/testsuite/gdb.ada/set_wstr.exp
gdb/testsuite/gdb.ada/small_reg_param.exp
gdb/testsuite/gdb.ada/str_uninit.exp
gdb/testsuite/gdb.ada/taft_type.exp
gdb/testsuite/gdb.ada/task_switch_in_core.exp
gdb/testsuite/gdb.ada/varsize_limit.exp
gdb/testsuite/gdb.ada/whatis_array_val.exp
gdb/testsuite/gdb.ada/widewide.exp