diff options
Diffstat (limited to 'gdb/testsuite/gdb.trace/tfind.exp')
| -rw-r--r-- | gdb/testsuite/gdb.trace/tfind.exp | 61 |
1 files changed, 16 insertions, 45 deletions
diff --git a/gdb/testsuite/gdb.trace/tfind.exp b/gdb/testsuite/gdb.trace/tfind.exp index 902a32e..f1bc46b 100644 --- a/gdb/testsuite/gdb.trace/tfind.exp +++ b/gdb/testsuite/gdb.trace/tfind.exp @@ -28,40 +28,19 @@ set bug_id 0 gdb_exit gdb_start -if [istarget "m68k-*-elf"] then { - load_lib "emc-support.exp"; - set srcfile gdb_c_test.c - set binfile [board_info target d490_binfile]; - gdb_test "set remotetimeout 6" "" "" - set timeout 500 - gdb_target_monitor $binfile - # Give a TSTOP and ignore errors, to make sure any previous trace is off - gdb_test "tstop" "" "" - gdb_test "tfind none" "" "" - send_gdb "compare-sections CS\n" - gdb_expect { - -re "MIS-MATCHED.*$gdb_prompt $" { - untested tfind.exp - return -1 - all tests in this module will fail."; - } - -re ".*$gdb_prompt $" { } - } -} else { - set testfile "actions" - set srcfile ${testfile}.c - set binfile $objdir/$subdir/tfind - - if { [gdb_compile "$srcdir/$subdir/$srcfile" "$binfile" \ - executable {debug nowarnings}] != "" } { - untested tfind.exp - return -1 - } - gdb_load $binfile - gdb_test "tstop" "" "" - gdb_test "tfind none" "" "" - runto_main +set testfile "actions" +set srcfile ${testfile}.c +set binfile $objdir/$subdir/tfind + +if { [gdb_compile "$srcdir/$subdir/$srcfile" "$binfile" \ + executable {debug nowarnings}] != "" } { + untested tfind.exp + return -1 } +gdb_load $binfile +gdb_test "tstop" "" "" +gdb_test "tfind none" "" "" +runto_main gdb_reinitialize_dir $srcdir/$subdir # We generously give ourselves one "pass" if we successfully @@ -135,18 +114,10 @@ gdb_test "tstatus" "\[Tt\]race is running.*" "test tstatus on" # 6.2 test help tstart gdb_test "help tstart" "Start trace data collection." "6.2: help tstart" -if [istarget "m68k-*-elf"] then { - gdb_emclaptop_command "85,1,2,3,4,5,6" - sleep 5 - - gdb_emclaptop_command "85,7,8,9,A,B,C" - sleep 5 -} else { - gdb_test "break end" "" "" - gdb_test "continue" \ - "Continuing.*Breakpoint $decimal, end.*" \ - "run trace experiment" -} +gdb_test "break end" "" "" +gdb_test "continue" \ + "Continuing.*Breakpoint $decimal, end.*" \ + "run trace experiment" # 7.1 test tstop command send_gdb "tstop\n" |