Index: gdb/testsuite/gdb.cp/ref-params.exp |
diff --git a/gdb/testsuite/gdb.cp/ref-params.exp b/gdb/testsuite/gdb.cp/ref-params.exp |
index 23f9de868ab3b5de3cb0fd19d9bf5a833efab0f3..3305e70d2f28306d663e47cb166a868f99baad71 100644 |
--- a/gdb/testsuite/gdb.cp/ref-params.exp |
+++ b/gdb/testsuite/gdb.cp/ref-params.exp |
@@ -16,37 +16,25 @@ |
# written by Paul N. Hilfinger (Hilfinger@adacore.com) |
-if $tracelevel then { |
- strace $tracelevel |
- } |
- |
# |
# test running programs |
# |
if { [skip_cplus_tests] } { continue } |
-set testfile "ref-params" |
-set srcfile ${testfile}.cc |
-set binfile ${objdir}/${subdir}/${testfile} |
+standard_testfile .cc |
-if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } { |
- untested ref-params.exp |
- return -1 |
+if {[build_executable $testfile.exp $testfile $srcfile {debug c++}] == 1} { |
+ return -1 |
} |
gdb_exit |
proc gdb_start_again { text } { |
- global srcdir |
- global subdir |
global binfile |
global srcfile |
- gdb_exit |
- gdb_start |
- gdb_reinitialize_dir $srcdir/$subdir |
- gdb_load ${binfile} |
+ clean_restart $binfile |
runto ${srcfile}:[gdb_get_line_number $text] |
} |