Index: gdb/testsuite/gdb.trace/backtrace.exp |
diff --git a/gdb/testsuite/gdb.trace/backtrace.exp b/gdb/testsuite/gdb.trace/backtrace.exp |
index 07aed30b1f68434ba31798c4ea08c959422a41e0..5093266bd0490d1de40e362263d7d26d115eae11 100644 |
--- a/gdb/testsuite/gdb.trace/backtrace.exp |
+++ b/gdb/testsuite/gdb.trace/backtrace.exp |
@@ -17,17 +17,11 @@ |
load_lib "trace-support.exp"; |
-if $tracelevel then { |
- strace $tracelevel |
-} |
- |
gdb_exit |
gdb_start |
-set testfile "actions" |
-set srcfile ${testfile}.c |
-set binfile $objdir/$subdir/backtrace |
+standard_testfile actions.c |
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \ |
executable {debug nowarnings}] != "" } { |
untested backtrace.exp |
@@ -39,10 +33,8 @@ gdb_test "tfind none" ".*" "" |
runto_main |
gdb_reinitialize_dir $srcdir/$subdir |
-# We generously give ourselves one "pass" if we successfully |
-# detect that this test cannot be run on this target! |
if { ![gdb_target_supports_trace] } then { |
- pass "Current target does not support trace" |
+ unsupported "Current target does not support trace" |
return 1; |
} |