From 89c6d320b24567b6385e9dd92b3d4671c9796143 Mon Sep 17 00:00:00 2001 From: Andrew Burgess Date: Mon, 14 Nov 2022 14:18:33 +0000 Subject: gdb/testsuite: remove use of then keyword from gdb.trace/*.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.trace/ test script directory. There should be no changes in what is tested after this commit. --- gdb/testsuite/gdb.trace/actions.exp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gdb/testsuite/gdb.trace/actions.exp') diff --git a/gdb/testsuite/gdb.trace/actions.exp b/gdb/testsuite/gdb.trace/actions.exp index c14fb27..397b30e 100644 --- a/gdb/testsuite/gdb.trace/actions.exp +++ b/gdb/testsuite/gdb.trace/actions.exp @@ -42,7 +42,7 @@ gdb_file_cmd $binfile # all subsequent line numbers are relative to this first one (baseline) set baseline [gdb_find_recursion_test_baseline $srcfile] -if { $baseline == -1 } then { +if {$baseline == -1} { fail "could not find gdb_recursion_test function" return } @@ -57,7 +57,7 @@ gdb_delete_tracepoints set trcpt1 [gdb_gettpnum gdb_c_test] set trcpt2 [gdb_gettpnum gdb_asm_test] set trcpt3 [gdb_gettpnum $testline1] -if { $trcpt1 <= 0 || $trcpt2 <= 0 || $trcpt3 <= 0 } then { +if {$trcpt1 <= 0 || $trcpt2 <= 0 || $trcpt3 <= 0} { fail "setting tracepoints" return } -- cgit v1.1