diff options
Diffstat (limited to 'gdb/testsuite/gdb.trace')
26 files changed, 115 insertions, 115 deletions
diff --git a/gdb/testsuite/gdb.trace/actions-changed.exp b/gdb/testsuite/gdb.trace/actions-changed.exp index e850da2..a1d596d 100644 --- a/gdb/testsuite/gdb.trace/actions-changed.exp +++ b/gdb/testsuite/gdb.trace/actions-changed.exp @@ -166,7 +166,7 @@ if ![runto_main] { if ![gdb_target_supports_trace] { unsupported "Current target does not support trace" - return -1; + return -1 } test_actions_changed diff --git a/gdb/testsuite/gdb.trace/actions.exp b/gdb/testsuite/gdb.trace/actions.exp index be2bb3e..9962d65 100644 --- a/gdb/testsuite/gdb.trace/actions.exp +++ b/gdb/testsuite/gdb.trace/actions.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -37,10 +37,10 @@ gdb_file_cmd $binfile # define relative source line numbers: # all subsequent line numbers are relative to this first one (baseline) -set baseline [gdb_find_recursion_test_baseline $srcfile]; +set baseline [gdb_find_recursion_test_baseline $srcfile] if { $baseline == -1 } then { fail "Could not find gdb_recursion_test function" - return; + return } set testline1 [expr $baseline + 7] @@ -50,12 +50,12 @@ set testline1 [expr $baseline + 7] # gdb_delete_tracepoints -set trcpt1 [gdb_gettpnum gdb_c_test]; -set trcpt2 [gdb_gettpnum gdb_asm_test]; -set trcpt3 [gdb_gettpnum $testline1]; +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 { fail "setting tracepoints" - return; + return } # 5.1 actions of specified tracepoint diff --git a/gdb/testsuite/gdb.trace/ax.exp b/gdb/testsuite/gdb.trace/ax.exp index 523d469..6714a59 100644 --- a/gdb/testsuite/gdb.trace/ax.exp +++ b/gdb/testsuite/gdb.trace/ax.exp @@ -18,7 +18,7 @@ # The tests that use the maintenance command do not need tracepoint # support on the target, but they do want a live program. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit diff --git a/gdb/testsuite/gdb.trace/backtrace.exp b/gdb/testsuite/gdb.trace/backtrace.exp index 54c6ba4..e6447ac 100644 --- a/gdb/testsuite/gdb.trace/backtrace.exp +++ b/gdb/testsuite/gdb.trace/backtrace.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -57,10 +57,10 @@ set arg4 4 set arg5 5 set arg6 6 -set baseline [gdb_find_recursion_test_baseline $srcfile]; +set baseline [gdb_find_recursion_test_baseline $srcfile] if { $baseline == -1 } { fail "Could not find gdb_recursion_test function" - return; + return } set return_me 0 @@ -125,7 +125,7 @@ set tdp6 [gdb_gettpnum $testline6] if { $tdp2 <= 0 || $tdp3 <= 0 || \ $tdp4 <= 0 || $tdp5 <= 0 || $tdp6 <= 0 } then { fail "setting tracepoints failed" - return; + return } #gdb_trace_setactions "setup TP to collect FP" \ diff --git a/gdb/testsuite/gdb.trace/change-loc.exp b/gdb/testsuite/gdb.trace/change-loc.exp index 3a79b10..1b8c04e 100644 --- a/gdb/testsuite/gdb.trace/change-loc.exp +++ b/gdb/testsuite/gdb.trace/change-loc.exp @@ -12,7 +12,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" if {[skip_shlib_tests]} { return 0 diff --git a/gdb/testsuite/gdb.trace/deltrace.exp b/gdb/testsuite/gdb.trace/deltrace.exp index ee806cc..1053629 100644 --- a/gdb/testsuite/gdb.trace/deltrace.exp +++ b/gdb/testsuite/gdb.trace/deltrace.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -36,10 +36,10 @@ gdb_file_cmd $binfile # define relative source line numbers: # all subsequent line numbers are relative to this first one (baseline) -set baseline [gdb_find_recursion_test_baseline $srcfile]; +set baseline [gdb_find_recursion_test_baseline $srcfile] if { $baseline == -1 } then { fail "Could not find gdb_recursion_test function" - return; + return } set testline1 [expr $baseline + 4] @@ -72,12 +72,12 @@ gdb_test "delete tracepoints" \ # 3.2 delete tracepoint <n> gdb_delete_tracepoints -set trcpt1 [gdb_gettpnum gdb_c_test]; -set trcpt2 [gdb_gettpnum gdb_asm_test]; -set trcpt3 [gdb_gettpnum $testline1]; +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 { fail "setting tracepoints" - return; + return } gdb_test "info tracepoints" \ @@ -150,12 +150,12 @@ gdb_test "info tracepoints" \ # 3.3 delete three tracepoints at once gdb_delete_tracepoints -set trcpt1 [gdb_gettpnum gdb_c_test]; -set trcpt2 [gdb_gettpnum gdb_asm_test]; -set trcpt3 [gdb_gettpnum $testline1]; +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 { fail "setting tracepoints" - return; + return } gdb_test "info tracepoints" \ diff --git a/gdb/testsuite/gdb.trace/disconnected-tracing.exp b/gdb/testsuite/gdb.trace/disconnected-tracing.exp index 03d7d09..7598d8a 100644 --- a/gdb/testsuite/gdb.trace/disconnected-tracing.exp +++ b/gdb/testsuite/gdb.trace/disconnected-tracing.exp @@ -15,7 +15,7 @@ # Test of disconnected-tracing. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" standard_testfile set executable $testfile diff --git a/gdb/testsuite/gdb.trace/ftrace.exp b/gdb/testsuite/gdb.trace/ftrace.exp index 5a2d02f..7f1407e 100644 --- a/gdb/testsuite/gdb.trace/ftrace.exp +++ b/gdb/testsuite/gdb.trace/ftrace.exp @@ -12,7 +12,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" standard_testfile set executable $testfile diff --git a/gdb/testsuite/gdb.trace/infotrace.exp b/gdb/testsuite/gdb.trace/infotrace.exp index 49b77be..3a586cd 100644 --- a/gdb/testsuite/gdb.trace/infotrace.exp +++ b/gdb/testsuite/gdb.trace/infotrace.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -39,11 +39,11 @@ gdb_file_cmd $binfile # gdb_delete_tracepoints -set c_test_num [gdb_gettpnum gdb_c_test]; -set asm_test_num [gdb_gettpnum gdb_asm_test]; +set c_test_num [gdb_gettpnum gdb_c_test] +set asm_test_num [gdb_gettpnum gdb_asm_test] if { $c_test_num <= 0 || $asm_test_num <= 0 } then { fail "setting tracepoints" - return; + return } # 2.1 info tracepoints (all) diff --git a/gdb/testsuite/gdb.trace/passc-dyn.exp b/gdb/testsuite/gdb.trace/passc-dyn.exp index 6ac44dd..bad91e6 100644 --- a/gdb/testsuite/gdb.trace/passc-dyn.exp +++ b/gdb/testsuite/gdb.trace/passc-dyn.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -46,11 +46,11 @@ if { ![gdb_target_supports_trace] } then { # test passcount dynamically (live target) # -set baseline [gdb_find_recursion_test_baseline $srcfile]; +set baseline [gdb_find_recursion_test_baseline $srcfile] if { $baseline == -1 } then { fail "Could not find gdb_recursion_test function" - return; + return } # define relative source line numbers: @@ -74,7 +74,7 @@ set tdp3 [gdb_gettpnum "$testline3"] set tdp4 [gdb_gettpnum "$testline4"] if { $tdp2 <= 0 || $tdp3 <= 0 || $tdp4 <= 0 } then { fail "setting tracepoints" - return; + return } gdb_test "passcount 4 $tdp2" "Setting tracepoint $tdp2's passcount to 4" \ diff --git a/gdb/testsuite/gdb.trace/passcount.exp b/gdb/testsuite/gdb.trace/passcount.exp index 4ec3ee4..a179021 100644 --- a/gdb/testsuite/gdb.trace/passcount.exp +++ b/gdb/testsuite/gdb.trace/passcount.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -35,10 +35,10 @@ gdb_file_cmd $binfile # define relative source line numbers: # all subsequent line numbers are relative to this first one (baseline) -set baseline [gdb_find_recursion_test_baseline $srcfile]; +set baseline [gdb_find_recursion_test_baseline $srcfile] if { $baseline == -1 } then { fail "Could not find gdb_recursion_test function" - return; + return } set testline1 [expr $baseline + 3] @@ -48,12 +48,12 @@ set testline1 [expr $baseline + 3] # gdb_delete_tracepoints -set trcpt1 [gdb_gettpnum gdb_c_test]; -set trcpt2 [gdb_gettpnum gdb_asm_test]; -set trcpt3 [gdb_gettpnum $testline1]; +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 { fail "setting tracepoints" - return; + return } # 4.1 passcount of specified tracepoint diff --git a/gdb/testsuite/gdb.trace/pending.exp b/gdb/testsuite/gdb.trace/pending.exp index 0308e13..b3c90bc 100644 --- a/gdb/testsuite/gdb.trace/pending.exp +++ b/gdb/testsuite/gdb.trace/pending.exp @@ -12,7 +12,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" if {[skip_shlib_tests]} { return 0 diff --git a/gdb/testsuite/gdb.trace/qtro.exp b/gdb/testsuite/gdb.trace/qtro.exp index f07c954..dc69734 100644 --- a/gdb/testsuite/gdb.trace/qtro.exp +++ b/gdb/testsuite/gdb.trace/qtro.exp @@ -57,7 +57,7 @@ if ![gdb_is_target_remote] { if ![gdb_target_supports_trace] { unsupported "Current target does not support trace" - return -1; + return -1 } # Run a trace session, stop it, and then inspect the resulting trace diff --git a/gdb/testsuite/gdb.trace/range-stepping.exp b/gdb/testsuite/gdb.trace/range-stepping.exp index 5cd81b6..c04e478 100644 --- a/gdb/testsuite/gdb.trace/range-stepping.exp +++ b/gdb/testsuite/gdb.trace/range-stepping.exp @@ -31,7 +31,7 @@ if ![runto_main] { if ![gdb_target_supports_trace] { unsupported "target does not support trace" - return -1; + return -1 } # Check that range stepping works well with tracepoints. diff --git a/gdb/testsuite/gdb.trace/report.exp b/gdb/testsuite/gdb.trace/report.exp index 8bb71e4..664dd9c 100644 --- a/gdb/testsuite/gdb.trace/report.exp +++ b/gdb/testsuite/gdb.trace/report.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -62,10 +62,10 @@ set arg4 4 set arg5 5 set arg6 6 -set gdb_recursion_test_baseline [gdb_find_recursion_test_baseline $srcfile]; +set gdb_recursion_test_baseline [gdb_find_recursion_test_baseline $srcfile] if { $gdb_recursion_test_baseline == -1 } { fail "Could not find gdb_recursion_test function" - return; + return } set return_me 0 @@ -134,7 +134,7 @@ set tdp6 [gdb_gettpnum $testline6] if { $tdp1 <= 0 || $tdp2 <= 0 || $tdp3 <= 0 || \ $tdp4 <= 0 || $tdp5 <= 0 || $tdp6 <= 0 } then { fail "setting tracepoints failed" - return; + return } gdb_trace_setactions "9.x: setup TP to collect regs" \ diff --git a/gdb/testsuite/gdb.trace/save-trace.exp b/gdb/testsuite/gdb.trace/save-trace.exp index 595b85b..5df4ba5 100644 --- a/gdb/testsuite/gdb.trace/save-trace.exp +++ b/gdb/testsuite/gdb.trace/save-trace.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -36,10 +36,10 @@ gdb_file_cmd $binfile # define relative source line numbers: # all subsequent line numbers are relative to this first one (baseline) -set baseline [gdb_find_recursion_test_baseline $srcfile]; +set baseline [gdb_find_recursion_test_baseline $srcfile] if { $baseline == -1 } then { fail "Could not find gdb_recursion_test function" - return; + return } set testline1 [expr $baseline + 4] @@ -58,9 +58,9 @@ set testline6 [expr $baseline + 9] gdb_delete_tracepoints foreach x { 1 2 3 4 5 6 } { - set testline [expr \$testline$x]; - set trcpt [gdb_gettpnum $testline]; - set trcpt$x $trcpt; + set testline [expr \$testline$x] + set trcpt [gdb_gettpnum $testline] + set trcpt$x $trcpt gdb_test "passcount $x" \ "Setting tracepoint $trcpt.* to $x" \ "10.x: set passcount for tracepoint $trcpt" @@ -80,39 +80,39 @@ gdb_test_no_output "set default-collect gdb_char_test, gdb_long_test - 100" \ "10: set default-collect" proc gdb_verify_tracepoints { testname } { - global gdb_prompt; + global gdb_prompt set ws "\[\t \]+" set nl "\[\r\n\]+" - set ourstate 1; - set result "pass"; + set ourstate 1 + set result "pass" gdb_test_multiple "info tracepoints" "$testname" { -re "\[0-9\]+\[\t \]+tracepoint\[\t \]+keep y\[\t \]+0x\[0-9a-fA-F\]+ in gdb_recursion_test\[^\r\n\]+\r\n\[ \t]+trace only if \[0-9\] - 1 == \[0-9\] / 2" { # if { $expect_out(1,string) != $ourstate } { -# set result "fail"; +# set result "fail" # } - incr ourstate; - exp_continue; + incr ourstate + exp_continue } -re "$gdb_prompt $" { if { $ourstate >= 6 } { - set result "pass"; + set result "pass" } else { - set result "fail"; + set result "fail" } } default { - set result "fail"; + set result "fail" } } - $result $testname; + $result $testname gdb_test "show default-collect" \ "The list of expressions to collect by default is \"gdb_char_test, gdb_long_test - 100\"..*" \ "10: show default-collect" } -gdb_verify_tracepoints "10.x: verify trace setup"; +gdb_verify_tracepoints "10.x: verify trace setup" # 10.1 Save current tracepoint definitions to a file @@ -129,7 +129,7 @@ gdb_test "info tracepoints" "No tracepoints." "10.2: delete tracepoints" gdb_test "source savetrace.tr" \ "Tracepoint \[0-9\]+ at .*" \ "10.2: read back saved tracepoints" -gdb_verify_tracepoints "10.2: verify recovered tracepoints"; +gdb_verify_tracepoints "10.2: verify recovered tracepoints" remote_file host delete savetrace.tr # 10.3 repeat with a path to the file @@ -147,7 +147,7 @@ gdb_test "info tracepoints" "No tracepoints." "10.3: delete tracepoints" gdb_test "source $trace_file_name" \ "Tracepoint \[0-9\]+ at .*" \ "10.4: read saved tracepoints, full path" -gdb_verify_tracepoints "10.3: verify recovered tracepoints, full path"; +gdb_verify_tracepoints "10.3: verify recovered tracepoints, full path" remote_file host delete $trace_file_name # 10.5 invalid filename diff --git a/gdb/testsuite/gdb.trace/status-stop.exp b/gdb/testsuite/gdb.trace/status-stop.exp index 10e2f4e..6fc58f6 100644 --- a/gdb/testsuite/gdb.trace/status-stop.exp +++ b/gdb/testsuite/gdb.trace/status-stop.exp @@ -12,7 +12,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" standard_testfile set executable $testfile @@ -32,7 +32,7 @@ if ![runto_main] { if ![gdb_target_supports_trace] { unsupported "target does not support trace" - return -1 + return -1 } # Verify that the sequence of commands "tstart tstop tstart" works well. diff --git a/gdb/testsuite/gdb.trace/strace.exp b/gdb/testsuite/gdb.trace/strace.exp index 3f3eb4e..ab7ccb5 100644 --- a/gdb/testsuite/gdb.trace/strace.exp +++ b/gdb/testsuite/gdb.trace/strace.exp @@ -12,7 +12,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" if {[skip_shlib_tests]} { return 0 diff --git a/gdb/testsuite/gdb.trace/tfile.exp b/gdb/testsuite/gdb.trace/tfile.exp index d7381eb..b4a7460 100644 --- a/gdb/testsuite/gdb.trace/tfile.exp +++ b/gdb/testsuite/gdb.trace/tfile.exp @@ -20,7 +20,7 @@ # ability to generate synthetic trace files directly, and the tfile # target is available to all GDB configs. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/tfind.exp b/gdb/testsuite/gdb.trace/tfind.exp index 9ecc679..f66ee5d 100644 --- a/gdb/testsuite/gdb.trace/tfind.exp +++ b/gdb/testsuite/gdb.trace/tfind.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -73,10 +73,10 @@ if { ![gdb_target_supports_trace] } then { # define relative source line numbers: # all subsequent line numbers are relative to this first one (baseline) -set baseline [gdb_find_recursion_test_baseline $srcfile]; +set baseline [gdb_find_recursion_test_baseline $srcfile] if { $baseline == -1 } then { fail "Could not find gdb_recursion_test function" - return; + return } set testline1 [expr $baseline + 1] @@ -98,7 +98,7 @@ set tdp5 [gdb_gettpnum $testline5] if { $tdp1 <= 0 || $tdp2 <= 0 || $tdp3 <= 0 || \ $tdp4 <= 0 || $tdp5 <= 0 } then { fail "setting tracepoints" - return; + return } # 6.1 test tstart command @@ -160,15 +160,15 @@ gdb_test "tstatus" "Trace stopped by a tstop command.*" \ "test tstatus off after tstop" ## record starting PC -set save_pc [gdb_readexpr "(unsigned long) \$pc"]; +set save_pc [gdb_readexpr "(unsigned long) \$pc"] if { $save_pc == -1 } then { fail "could not read PC" - return; + return } # 8.7 tfind start ## check $trace_frame == 0 -gdb_tfind_test "8.7: tfind start command" "start" "0"; +gdb_tfind_test "8.7: tfind start command" "start" "0" ## check $pc != startPC gdb_test "printf \"x \%d x\\n\", \$pc != $save_pc" \ "x 1 x" \ @@ -176,7 +176,7 @@ gdb_test "printf \"x \%d x\\n\", \$pc != $save_pc" \ # 8.8 tfind none ## check $trace_frame == -1 -gdb_tfind_test "8.8: tfind none" "none" "-1"; +gdb_tfind_test "8.8: tfind none" "none" "-1" ## check $pc == startPC gdb_test "printf \"x \%d x\\n\", \$pc == $save_pc" \ "x 1 x" \ @@ -184,7 +184,7 @@ gdb_test "printf \"x \%d x\\n\", \$pc == $save_pc" \ # 8.9 tfind end ## check $trace_frame == -1 -gdb_tfind_test "8.9: tfind end, selects no frame" "end" "-1"; +gdb_tfind_test "8.9: tfind end, selects no frame" "end" "-1" ## check $pc == startPC gdb_test "printf \"x \%d x\\n\", \$pc == $save_pc" \ "x 1 x" \ @@ -217,39 +217,39 @@ gdb_test "printf \"x \%d x\\n\", \$trace_frame == -3" "x 0 x" \ # 8.10 tfind <no arg> ## check $trace_frame += 1 -gdb_tfind_test "8.10: tfind start" "start" "0"; +gdb_tfind_test "8.10: tfind start" "start" "0" gdb_test "print \$trace_line" "$baseline" \ "8.10: tfind 0 (correct line $baseline)" -gdb_tfind_test "8.10: tfind noargument 1" "" "1"; +gdb_tfind_test "8.10: tfind noargument 1" "" "1" gdb_test "print \$trace_line" "$testline2" \ "8.10: tfind 1 (correct line $testline2)" -gdb_tfind_test "8.10: tfind noargument 2" "" "2"; +gdb_tfind_test "8.10: tfind noargument 2" "" "2" gdb_test "print \$trace_line" "$testline3" \ "8.10: tfind 2 (correct line $testline3)" -gdb_tfind_test "8.10: tfind noargument 3" "" "3"; +gdb_tfind_test "8.10: tfind noargument 3" "" "3" gdb_test "print \$trace_line" "$testline4" \ "8.10: tfind 3 (correct line $testline4)" -gdb_tfind_test "8.11: tfind 3" "3" "3"; +gdb_tfind_test "8.11: tfind 3" "3" "3" gdb_test "print \$trace_line" "$testline4" \ "8.11: tfind 3 (correct line $testline4)" -gdb_tfind_test "8.11: tfind backward 2" "-" "2"; +gdb_tfind_test "8.11: tfind backward 2" "-" "2" gdb_test "print \$trace_line" "$testline3" \ "8.11: tfind 2 (correct line $testline3)" -gdb_tfind_test "8.11: tfind backward 1" "-" "1"; +gdb_tfind_test "8.11: tfind backward 1" "-" "1" gdb_test "print \$trace_line" "$testline2" \ "8.11: tfind 1 (correct line $testline2)" -gdb_tfind_test "8.11: tfind backward 0" "-" "0"; +gdb_tfind_test "8.11: tfind backward 0" "-" "0" gdb_test "print \$trace_line" "$baseline" \ "8.11: tfind 0 (correct line $baseline)" -gdb_tfind_test "8.12: tfind none" "none" "-1"; +gdb_tfind_test "8.12: tfind none" "none" "-1" gdb_tfind_test "8.12: tfind tracepoint <n>" "tracepoint $tdp2" \ - "\$tracepoint" "$tdp2"; + "\$tracepoint" "$tdp2" gdb_test "print \$trace_line" "$testline2" \ "8.12: tfind tracepoint <n> (line $testline2)" -gdb_tfind_test "8.25: tfind none" "none" "-1"; +gdb_tfind_test "8.25: tfind none" "none" "-1" gdb_test "tfind tracepoint 0" "failed to find.*" \ "8.25: tfind tracepoint rejects zero" gdb_test "tfind tracepoint 32767" "failed to find.*" \ @@ -259,24 +259,24 @@ gdb_test "tfind tracepoint -1" "failed to find.*" \ # 8.37 tfind tracepoint n where n no longer exists (but used to) gdb_test_no_output "delete trace $tdp2" "" -gdb_tfind_test "8.37: tfind none" "none" "-1"; +gdb_tfind_test "8.37: tfind none" "none" "-1" gdb_tfind_test "8.37: tfind deleted tracepoint" \ "tracepoint $tdp2" \ - "\$tracepoint" "$tdp2"; + "\$tracepoint" "$tdp2" gdb_test "print \$trace_line" "$testline2" \ "8.37: tfind deleted tracepoint (line $testline2)" # 8.13 tfind tracepoint <no arg> ## check $tracepoint same before and after, $trace_frame changed -gdb_tfind_test "8.13: tfind none" "none" "-1"; +gdb_tfind_test "8.13: tfind none" "none" "-1" gdb_tfind_test "8.13: tracepoint $tdp1" "tracepoint $tdp1" \ - "\$tracepoint" "$tdp1"; + "\$tracepoint" "$tdp1" gdb_test "print \$trace_line" "$baseline" \ "8.13: tfind tracepoint $tdp1 (line $baseline)" gdb_test_no_output "set \$save_frame = \$trace_frame" "" gdb_tfind_test "8.13: tracepoint <no arg>" "tracepoint" \ - "\$tracepoint" "$tdp1"; + "\$tracepoint" "$tdp1" gdb_test "printf \"x \%d x\\n\", \$trace_frame == \$save_frame" \ "x 0 x" \ "8.13: tracepoint <no arg>, tracepoint number unchanged" @@ -299,7 +299,7 @@ gdb_test "print \$trace_line" "$testline4" \ gdb_test_no_output "set \$test_pc = \$pc" "" gdb_tfind_test "8.14: tfind none" "none" "-1" -gdb_tfind_test "8.14: tfind pc" "pc \$test_pc" "\$trace_frame != -1" "1"; +gdb_tfind_test "8.14: tfind pc" "pc \$test_pc" "\$trace_frame != -1" "1" gdb_test "print \$trace_line" "$testline4" \ "8.14: tfind pc x (line $testline4)" gdb_test "printf \"x \%d x\\n\", \$pc == \$test_pc" \ @@ -347,13 +347,13 @@ gdb_test "disassemble gdb_c_test" \ gdb_test "tfind line 0" \ "out of range.*|failed to find.*|No line 0 in .*" \ - "8.18: tfind line 0"; + "8.18: tfind line 0" gdb_test "tfind line 32767" \ "out of range.*|failed to find.*|No line 32767 in .*" \ - "8.27: tfind line 32767"; + "8.27: tfind line 32767" gdb_test "tfind line NoSuChFiLe.c:$baseline" \ "No source file named.*" \ - "8.27: tfind line in bad source file"; + "8.27: tfind line in bad source file" # 8.32 tfind invalid subcommand (tfind foo) ## check error diff --git a/gdb/testsuite/gdb.trace/trace-break.exp b/gdb/testsuite/gdb.trace/trace-break.exp index 0a7c996..30bba93 100644 --- a/gdb/testsuite/gdb.trace/trace-break.exp +++ b/gdb/testsuite/gdb.trace/trace-break.exp @@ -12,7 +12,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" standard_testfile set executable $testfile diff --git a/gdb/testsuite/gdb.trace/trace-mt.exp b/gdb/testsuite/gdb.trace/trace-mt.exp index 321aaf3..7b6219a 100644 --- a/gdb/testsuite/gdb.trace/trace-mt.exp +++ b/gdb/testsuite/gdb.trace/trace-mt.exp @@ -12,7 +12,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" standard_testfile set executable $testfile diff --git a/gdb/testsuite/gdb.trace/tracecmd.exp b/gdb/testsuite/gdb.trace/tracecmd.exp index ccbd4ae..81dc1ed 100644 --- a/gdb/testsuite/gdb.trace/tracecmd.exp +++ b/gdb/testsuite/gdb.trace/tracecmd.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -35,10 +35,10 @@ gdb_file_cmd $binfile # define relative source line numbers: # all subsequent line numbers are relative to this first one (baseline) -set baseline [gdb_find_recursion_test_baseline $srcfile]; +set baseline [gdb_find_recursion_test_baseline $srcfile] if { $baseline == -1 } then { fail "Could not find gdb_recursion_test function" - return; + return } set testline1 [expr $baseline + 1] @@ -48,7 +48,7 @@ set testline2 [expr $baseline + 3] # test "help tracepoints" # -set helpcnt 0; +set helpcnt 0 test_class_help "tracepoints" { "Tracing of program execution without stopping the program\.[\r\n\]+" } "1.0: help tracepoints" diff --git a/gdb/testsuite/gdb.trace/tspeed.exp b/gdb/testsuite/gdb.trace/tspeed.exp index c5c2062..7776c65 100644 --- a/gdb/testsuite/gdb.trace/tspeed.exp +++ b/gdb/testsuite/gdb.trace/tspeed.exp @@ -73,7 +73,7 @@ proc gdb_slow_trace_speed_test { } { gdb_delete_tracepoints - gdb_test "print iters = init_iters" ".* = .*"; + gdb_test "print iters = init_iters" ".* = .*" set testline [gdb_get_line_number "set tracepoint here"] @@ -90,7 +90,7 @@ proc gdb_fast_trace_speed_test { } { gdb_delete_tracepoints - gdb_test "print iters = init_iters" ".* = .*"; + gdb_test "print iters = init_iters" ".* = .*" set run_ftrace 0 diff --git a/gdb/testsuite/gdb.trace/tsv.exp b/gdb/testsuite/gdb.trace/tsv.exp index 76b8645..4177d13 100644 --- a/gdb/testsuite/gdb.trace/tsv.exp +++ b/gdb/testsuite/gdb.trace/tsv.exp @@ -13,7 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -111,11 +111,11 @@ if { ![gdb_target_supports_trace] } then { } gdb_delete_tracepoints -set trcpt1 [gdb_gettpnum gdb_c_test]; +set trcpt1 [gdb_gettpnum gdb_c_test] if { $trcpt1 <= 0 } then { fail "setting tracepoints" - return; + return } gdb_test "tvariable \$tvar5 = 15" \ diff --git a/gdb/testsuite/gdb.trace/while-stepping.exp b/gdb/testsuite/gdb.trace/while-stepping.exp index da9b14a..3e60587 100644 --- a/gdb/testsuite/gdb.trace/while-stepping.exp +++ b/gdb/testsuite/gdb.trace/while-stepping.exp @@ -15,7 +15,7 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -load_lib "trace-support.exp"; +load_lib "trace-support.exp" gdb_exit @@ -42,7 +42,7 @@ gdb_delete_tracepoints set trcpt1 [gdb_gettpnum gdb_c_test] if { $trcpt1 <= 0 } then { fail "Could not find gdb_c_test function" - return; + return } # 5.12 basic while-stepping command (collect regs) @@ -71,7 +71,7 @@ gdb_test "info tracepoints" \ # [deferred to dynamic test section] proc while_stepping_bogus_arg { bogus msgstring } { - global gdb_prompt; + global gdb_prompt gdb_trace_setactions "$msgstring" \ "" \ |