diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 12 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/arr-stride.exp | 15 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/arr-subrange.exp | 15 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/dwz.exp | 15 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/implptrconst.exp | 13 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/implptrpiece.exp | 13 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/method-ptr.exp | 15 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/missing-sig-type.exp | 15 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/nostaticblock.exp | 15 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/subrange.exp | 15 |
10 files changed, 30 insertions, 113 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 47b586b..70b7512 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,17 @@ 2014-03-12 Andreas Arnez <arnez@linux.vnet.ibm.com> + * gdb.dwarf2/arr-stride.exp: Exploit 'prepare_for_testing'. + * gdb.dwarf2/arr-subrange.exp: Likewise. + * gdb.dwarf2/dwz.exp: Likewise. + * gdb.dwarf2/method-ptr.exp: Likewise. + * gdb.dwarf2/missing-sig-type.exp: Likewise. + * gdb.dwarf2/subrange.exp: Likewise. + * gdb.dwarf2/implptrconst.exp: Exploit 'build_executable'. + * gdb.dwarf2/implptrpiece.exp: Likewise. + * gdb.dwarf2/nostaticblock.exp: Likewise. + +2014-03-12 Andreas Arnez <arnez@linux.vnet.ibm.com> + * lib/gdb.exp (build_executable_from_specs): Don't prepend source directory to absolute path name arguments. diff --git a/gdb/testsuite/gdb.dwarf2/arr-stride.exp b/gdb/testsuite/gdb.dwarf2/arr-stride.exp index f2a1f39..c918622 100644 --- a/gdb/testsuite/gdb.dwarf2/arr-stride.exp +++ b/gdb/testsuite/gdb.dwarf2/arr-stride.exp @@ -83,22 +83,11 @@ Dwarf::assemble $asm_file { } } -if {[gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \ - object {nodebug}] != ""} { +if { [prepare_for_testing ${testfile}.exp ${testfile} \ + [list $srcfile $asm_file] {nodebug}] } { return -1 } -if {[gdb_compile $asm_file ${binfile}2.o object {nodebug}] != ""} { - return -1 -} - -if {[gdb_compile [list ${binfile}1.o ${binfile}2.o] \ - "${binfile}" executable {}] != ""} { - return -1 -} - -clean_restart ${testfile} - gdb_test_no_output "set language ada" gdb_test "ptype pck.table" \ diff --git a/gdb/testsuite/gdb.dwarf2/arr-subrange.exp b/gdb/testsuite/gdb.dwarf2/arr-subrange.exp index 9847c13..d01b789 100644 --- a/gdb/testsuite/gdb.dwarf2/arr-subrange.exp +++ b/gdb/testsuite/gdb.dwarf2/arr-subrange.exp @@ -77,22 +77,11 @@ Dwarf::assemble $asm_file { } } -if {[gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \ - object {nodebug}] != ""} { +if { [prepare_for_testing ${testfile}.exp ${testfile} \ + [list $srcfile $asm_file] {nodebug}] } { return -1 } -if {[gdb_compile $asm_file ${binfile}2.o object {nodebug}] != ""} { - return -1 -} - -if {[gdb_compile [list ${binfile}1.o ${binfile}2.o] \ - "${binfile}" executable {}] != ""} { - return -1 -} - -clean_restart ${testfile} - gdb_test_no_output "set language ada" gdb_test "ptype pck.table" \ diff --git a/gdb/testsuite/gdb.dwarf2/dwz.exp b/gdb/testsuite/gdb.dwarf2/dwz.exp index 87b6815..7f996b3 100644 --- a/gdb/testsuite/gdb.dwarf2/dwz.exp +++ b/gdb/testsuite/gdb.dwarf2/dwz.exp @@ -82,22 +82,11 @@ Dwarf::assemble $asm_file { } } -if { [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \ - object {nodebug}] != "" } { +if { [prepare_for_testing ${testfile}.exp ${testfile} \ + [list $srcfile $asm_file] {nodebug}] } { return -1 } -if { [gdb_compile $asm_file ${binfile}2.o object {nodebug}] != "" } { - return -1 -} - -if { [gdb_compile [list ${binfile}1.o ${binfile}2.o] \ - "${binfile}" executable {}] != "" } { - return -1 -} - -clean_restart ${testfile} - if ![runto_main] { return -1 } diff --git a/gdb/testsuite/gdb.dwarf2/implptrconst.exp b/gdb/testsuite/gdb.dwarf2/implptrconst.exp index 924d4c9..46c2608 100644 --- a/gdb/testsuite/gdb.dwarf2/implptrconst.exp +++ b/gdb/testsuite/gdb.dwarf2/implptrconst.exp @@ -85,17 +85,8 @@ Dwarf::assemble $asm_file { } } -if {[gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \ - object {nodebug}] != ""} { - return -1 -} - -if {[gdb_compile $asm_file ${binfile}2.o object {nodebug}] != ""} { - return -1 -} - -if {[gdb_compile [list ${binfile}1.o ${binfile}2.o] \ - "${binfile}" executable {}] != ""} { +if { [build_executable ${testfile}.exp ${testfile} \ + [list $srcfile $asm_file] {nodebug}] } { return -1 } diff --git a/gdb/testsuite/gdb.dwarf2/implptrpiece.exp b/gdb/testsuite/gdb.dwarf2/implptrpiece.exp index 06d231f..60a3d9f 100644 --- a/gdb/testsuite/gdb.dwarf2/implptrpiece.exp +++ b/gdb/testsuite/gdb.dwarf2/implptrpiece.exp @@ -103,17 +103,8 @@ Dwarf::assemble $asm_file { } } -if {[gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \ - object {nodebug}] != ""} { - return -1 -} - -if {[gdb_compile $asm_file ${binfile}2.o object {nodebug}] != ""} { - return -1 -} - -if {[gdb_compile [list ${binfile}1.o ${binfile}2.o] \ - "${binfile}" executable {}] != ""} { +if { [build_executable ${testfile}.exp ${testfile} \ + [list $srcfile $asm_file] {nodebug}] } { return -1 } diff --git a/gdb/testsuite/gdb.dwarf2/method-ptr.exp b/gdb/testsuite/gdb.dwarf2/method-ptr.exp index 53a3f73..7ab8cbd 100644 --- a/gdb/testsuite/gdb.dwarf2/method-ptr.exp +++ b/gdb/testsuite/gdb.dwarf2/method-ptr.exp @@ -77,21 +77,10 @@ Dwarf::assemble $asm_file { } } -if {[gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \ - object {nodebug}] != ""} { +if { [prepare_for_testing ${testfile}.exp ${testfile} \ + [list $srcfile $asm_file] {nodebug}] } { return -1 } -if {[gdb_compile $asm_file ${binfile}2.o object {nodebug}] != ""} { - return -1 -} - -if {[gdb_compile [list ${binfile}1.o ${binfile}2.o] \ - "${binfile}" executable {c++}] != ""} { - return -1 -} - -clean_restart ${testfile} - gdb_test "ptype the_typedef" \ "type = int \\(S::\\*\\)\\(S \\* const, float\\)" diff --git a/gdb/testsuite/gdb.dwarf2/missing-sig-type.exp b/gdb/testsuite/gdb.dwarf2/missing-sig-type.exp index 8ccfa43..9012604 100644 --- a/gdb/testsuite/gdb.dwarf2/missing-sig-type.exp +++ b/gdb/testsuite/gdb.dwarf2/missing-sig-type.exp @@ -49,20 +49,9 @@ Dwarf::assemble $asm_file { } } -if {[gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \ - object {nodebug}] != ""} { +if { [prepare_for_testing ${testfile}.exp ${testfile} \ + [list $srcfile $asm_file] {nodebug}] } { return -1 } -if {[gdb_compile $asm_file ${binfile}2.o object {nodebug}] != ""} { - return -1 -} - -if {[gdb_compile [list ${binfile}1.o ${binfile}2.o] \ - "${binfile}" executable {c++}] != ""} { - return -1 -} - -clean_restart ${testfile} - gdb_test "ptype foo" "type = <unknown type .*>" diff --git a/gdb/testsuite/gdb.dwarf2/nostaticblock.exp b/gdb/testsuite/gdb.dwarf2/nostaticblock.exp index 9685cc1..bd4345e 100644 --- a/gdb/testsuite/gdb.dwarf2/nostaticblock.exp +++ b/gdb/testsuite/gdb.dwarf2/nostaticblock.exp @@ -35,22 +35,11 @@ Dwarf::assemble $asm_file { } } -if {[gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \ - object {nodebug}] != ""} { +if { [build_executable ${testfile}.exp ${testfile} \ + [list $srcfile $asm_file] {nodebug}] } { return -1 } -if {[gdb_compile $asm_file ${binfile}2.o object {nodebug}] != ""} { - return -1 -} - -if {[gdb_compile [list ${binfile}1.o ${binfile}2.o] \ - "${binfile}" executable {c++}] != ""} { - return -1 -} - -clean_restart ${testfile} - set saved_gdbflags $GDBFLAGS set GDBFLAGS "$GDBFLAGS --readnow" clean_restart $testfile diff --git a/gdb/testsuite/gdb.dwarf2/subrange.exp b/gdb/testsuite/gdb.dwarf2/subrange.exp index 956a7e9..21f1c3a 100644 --- a/gdb/testsuite/gdb.dwarf2/subrange.exp +++ b/gdb/testsuite/gdb.dwarf2/subrange.exp @@ -60,22 +60,11 @@ Dwarf::assemble $asm_file { } } -if {[gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile}1.o \ - object {nodebug}] != ""} { +if { [prepare_for_testing ${testfile}.exp ${testfile} \ + [list $srcfile $asm_file] {nodebug}] } { return -1 } -if {[gdb_compile $asm_file ${binfile}2.o object {nodebug}] != ""} { - return -1 -} - -if {[gdb_compile [list ${binfile}1.o ${binfile}2.o] \ - "${binfile}" executable {c++}] != ""} { - return -1 -} - -clean_restart ${testfile} - gdb_test_no_output "set language pascal" gdb_test "ptype TByteArray" \ |