diff options
author | Pedro Alves <palves@redhat.com> | 2012-02-21 21:55:39 +0000 |
---|---|---|
committer | Pedro Alves <palves@redhat.com> | 2012-02-21 21:55:39 +0000 |
commit | 6a5870cea1620f9309c730a1dd97afac8ca2f8ed (patch) | |
tree | eb0cba7d00a91ce406316ab4e6b22c711d3888b0 /gdb/testsuite/gdb.trace/change-loc.exp | |
parent | b54a8fd70210fd1fc7b4f41c4679737066951033 (diff) | |
download | gdb-6a5870cea1620f9309c730a1dd97afac8ca2f8ed.zip gdb-6a5870cea1620f9309c730a1dd97afac8ca2f8ed.tar.gz gdb-6a5870cea1620f9309c730a1dd97afac8ca2f8ed.tar.bz2 |
2012-02-21 Pedro Alves <palves@redhat.com>
Tom Tromey <tromey@redhat.com>
* lib/gdb.exp: Add description of test prefixes.
(with_test_prefix): New procedure.
* gdb.arch/altivec-abi.exp: Use with_test_prefix.
* gdb.base/attach-pie-misread.exp: Use with_test_prefix.
* gdb.base/break-interp.exp: Use with_test_prefix. Use append
instead of lappend to append to pf_prefix.
* gdb.base/catch-load.exp: Use with_test_prefix.
* gdb.base/disp-step-syscall.exp: Use with_test_prefix.
* gdb.base/jit-so.exp: Use with_test_prefix.
* gdb.base/jit.exp: Use with_test_prefix.
* gdb.base/return-nodebug.exp (do_test): Use append instead of
lappend to append to pf_prefix.
* gdb.base/sepdebug.exp: Use with_test_prefix.
* gdb.base/solib-display.exp: Use with_test_prefix.
* gdb.base/solib-overlap.exp: Use with_test_prefix.
* gdb.base/watch-cond-infcall.exp: Use with_test_prefix.
* gdb.base/watchpoint.exp: Use with_test_prefix.
* gdb.dwarf2/dw2-noloc.exp: Use with_test_prefix.
* gdb.mi/mi-watch.exp: Use with_test_prefix.
* gdb.mi/mi2-watch.exp: Use with_test_prefix.
* gdb.threads/non-ldr-exc-1.exp: Use with_test_prefix.
* gdb.threads/non-ldr-exc-2.exp: Use with_test_prefix.
* gdb.threads/non-ldr-exc-3.exp: Use with_test_prefix.
* gdb.threads/non-ldr-exc-4.exp: Use with_test_prefix.
* gdb.threads/watchpoint-fork.exp: Use with_test_prefix. Use
append instead of lappend to append to pf_prefix.
* gdb.threads/watchthreads-reorder.exp: Use with_test_prefix.
* gdb.trace/change-loc.exp: Use with_test_prefix.
* gdb.trace/pending.exp: Use with_test_prefix.
* gdb.trace/status-stop.exp: Use with_test_prefix.
* gdb.trace/strace.exp: Use with_test_prefix.
* gdb.trace/trace-break.exp: Use with_test_prefix.
* gdb.trace/unavailable.exp: Use with_test_prefix. Use append
instead of lappend to append to pf_prefix.
Diffstat (limited to 'gdb/testsuite/gdb.trace/change-loc.exp')
-rw-r--r-- | gdb/testsuite/gdb.trace/change-loc.exp | 23 |
1 files changed, 4 insertions, 19 deletions
diff --git a/gdb/testsuite/gdb.trace/change-loc.exp b/gdb/testsuite/gdb.trace/change-loc.exp index 451a0e1..91cdb11 100644 --- a/gdb/testsuite/gdb.trace/change-loc.exp +++ b/gdb/testsuite/gdb.trace/change-loc.exp @@ -71,20 +71,15 @@ if [is_amd64_regs_target] { # Set tracepoint during tracing experiment. -proc tracepoint_change_loc_1 { trace_type } { +proc tracepoint_change_loc_1 { trace_type } { with_test_prefix " 1 $trace_type:" { global testfile global srcfile global pcreg global gdb_prompt - global pf_prefix - - set old_pf_prefix $pf_prefix - set pf_prefix "$pf_prefix 1 $trace_type:" clean_restart ${testfile} if ![runto_main] { fail "Can't run to main" - set pf_prefix $old_pf_prefix return -1 } gdb_test_no_output "delete break 1" @@ -120,7 +115,6 @@ proc tracepoint_change_loc_1 { trace_type } { } -re ".*$gdb_prompt $" { kfail "gdb/13392" "continue to marker 2" - set pf_prefix $old_pf_prefix return } } @@ -143,23 +137,17 @@ proc tracepoint_change_loc_1 { trace_type } { gdb_test "tfind" "Found trace frame 0, tracepoint 4.*" "tfind frame 0" gdb_test "tfind" "Target failed to find requested trace frame\\..*" - - set pf_prefix $old_pf_prefix -} +}} # Set pending tracepoint. -proc tracepoint_change_loc_2 { trace_type } { +proc tracepoint_change_loc_2 { trace_type } { with_test_prefix " 2 $trace_type:" { global srcdir global srcfile global subdir global pcreg global binfile global gdb_prompt - global pf_prefix - - set old_pf_prefix $pf_prefix - set pf_prefix "$pf_prefix 2 $trace_type:" gdb_exit gdb_start @@ -218,7 +206,6 @@ proc tracepoint_change_loc_2 { trace_type } { } -re ".*$gdb_prompt $" { kfail "gdb/13392" "continue to marker 1" - set pf_prefix $old_pf_prefix return } } @@ -247,9 +234,7 @@ proc tracepoint_change_loc_2 { trace_type } { gdb_test "tfind" "Found trace frame 1, tracepoint 1.*" "tfind frame 1" gdb_test "tfind" "Found trace frame 2, tracepoint 1.*" "tfind frame 2" gdb_test "tfind" "Target failed to find requested trace frame\\..*" - - set pf_prefix $old_pf_prefix -} +}} tracepoint_change_loc_1 "trace" tracepoint_change_loc_2 "trace" |