Index: gdb/testsuite/gdb.base/solib-display.exp |
diff --git a/gdb/testsuite/gdb.base/solib-display.exp b/gdb/testsuite/gdb.base/solib-display.exp |
index c1a653d7d0ceae239f12f00009a481249999503c..17ded75bff0c373fa8493f89f200d61dabe17d07 100644 |
--- a/gdb/testsuite/gdb.base/solib-display.exp |
+++ b/gdb/testsuite/gdb.base/solib-display.exp |
@@ -44,16 +44,12 @@ set executable ${testfile} |
set binfile ${objdir}/${subdir}/${executable} |
set bin_flags [list debug shlib=${binfile_lib}] |
-if [get_compiler_info ${binfile}] { |
+if [get_compiler_info] { |
return -1 |
} |
-set save_pf_prefix $pf_prefix |
# SEP must be last for the possible `unsupported' error path. |
-foreach libsepdebug {NO IN SEP} { |
- |
- set pf_prefix $save_pf_prefix |
- lappend pf_prefix "$libsepdebug:" |
+foreach libsepdebug {NO IN SEP} { with_test_prefix "$libsepdebug" { |
set sep_lib_flags $lib_flags |
if {$libsepdebug != "NO"} { |
@@ -135,5 +131,4 @@ foreach libsepdebug {NO IN SEP} { |
gdb_test "break [gdb_get_line_number "break here" ${testfile}.c]" \ |
".*Breakpoint.* at .*" |
gdb_test "continue" "6: a_static = 46\\r\\n5: a_local = 45\\r\\n4: main_global = 44\\r\\n.*" |
-} |
-set pf_prefix $save_pf_prefix |
+}} |