From 810cfdbbaf88c1f7feac42089abbaaa55304b94a Mon Sep 17 00:00:00 2001 From: Yao Qi Date: Wed, 19 Jan 2011 20:26:10 +0000 Subject: [PATCH] 2011-01-19 Yao Qi * gdb.asm/asm-source.exp: Replace ARM target triplet with a canonical form. Remove "xscale-*-*" * gdb.xml/tdesc-regs.exp: Likewise. * gdb.python/py-section-script.exp: Replace ARM target triplet with canonical form. Match arm*-*-symbianelf*. * gdb.base/dup-sect.exp: Likewise. * lib/dwarf.exp: New. * gdb.dwarf2/callframecfa.exp: Check dwarf2 support by routine dwarf2_support. * gdb.dwarf2/dup-psym.exp: Likewise. * gdb.dwarf2/dw2-ada-ffffffff.exp: Likewise. * gdb.dwarf2/dw2-anonymous-func.exp: Likewise. * gdb.dwarf2/dw2-bad-parameter-type.exp: Likewise. * gdb.dwarf2/dw2-basic.exp: Likewise. * gdb.dwarf2/dw2-compressed.exp: Likewise. * gdb.dwarf2/dw2-const.exp: Likewise. * gdb.dwarf2/dw2-cp-infcall-ref-static.exp: Likewise. * gdb.dwarf2/dw2-cu-size.exp: Likewise. * gdb.dwarf2/dw2-double-set-die-type.exp: Likewise. * gdb.dwarf2/dw2-empty-namespace.exp: Likewise. * gdb.dwarf2/dw2-filename.exp: Likewise. * gdb.dwarf2/dw2-inheritance.exp: Likewise. * gdb.dwarf2/dw2-inline-param.exp: Likewise. * gdb.dwarf2/dw2-intercu.exp: Likewise. * gdb.dwarf2/dw2-intermix.exp: Likewise. * gdb.dwarf2/dw2-modula2-self-type.exp: Likewise. * gdb.dwarf2/dw2-noloc.exp: Likewise. * gdb.dwarf2/dw2-op-call.exp: Likewise. * gdb.dwarf2/dw2-producer.exp: Likewise. * gdb.dwarf2/dw2-ranges.exp: Likewise. * gdb.dwarf2/dw2-ref-missing-frame.exp: Likewise. * gdb.dwarf2/dw2-stack-boundary.exp: Likewise. * gdb.dwarf2/dw2-strp.exp: Likewise. * gdb.dwarf2/dw2-unresolved.exp: Likewise. * gdb.dwarf2/implptr.exp: Likewise. * gdb.dwarf2/mac-fileno.exp: Likewise. * gdb.dwarf2/member-ptr-forwardref.exp: Likewise. * gdb.dwarf2/pieces.exp: Likewise. * gdb.dwarf2/pr11465.exp: Likewise. * gdb.dwarf2/valop.exp: Likewise. * gdb.dwarf2/watch-notconst.exp: Likewise. * gdb.mi/dw2-ref-missing-frame.exp: Likewise. --- gdb/testsuite/ChangeLog | 47 +++++++++++++++++++ gdb/testsuite/gdb.asm/asm-source.exp | 5 +- gdb/testsuite/gdb.base/dup-sect.exp | 3 +- gdb/testsuite/gdb.dwarf2/callframecfa.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dup-psym.exp | 8 +--- gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp | 9 +--- .../gdb.dwarf2/dw2-anonymous-func.exp | 9 +--- .../gdb.dwarf2/dw2-bad-parameter-type.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-basic.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-compressed.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-const.exp | 9 +--- .../gdb.dwarf2/dw2-cp-infcall-ref-static.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-cu-size.exp | 9 +--- .../gdb.dwarf2/dw2-double-set-die-type.exp | 9 +--- .../gdb.dwarf2/dw2-empty-namespace.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-filename.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-inheritance.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-inline-param.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-intercu.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-intermix.exp | 9 +--- .../gdb.dwarf2/dw2-modula2-self-type.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-noloc.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-op-call.exp | 11 ++--- gdb/testsuite/gdb.dwarf2/dw2-producer.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-ranges.exp | 9 +--- .../gdb.dwarf2/dw2-ref-missing-frame.exp | 9 +--- .../gdb.dwarf2/dw2-stack-boundary.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-strp.exp | 9 +--- gdb/testsuite/gdb.dwarf2/dw2-unresolved.exp | 9 +--- gdb/testsuite/gdb.dwarf2/implptr.exp | 9 +--- gdb/testsuite/gdb.dwarf2/mac-fileno.exp | 9 +--- .../gdb.dwarf2/member-ptr-forwardref.exp | 9 +--- gdb/testsuite/gdb.dwarf2/pieces.exp | 10 +--- gdb/testsuite/gdb.dwarf2/pr11465.exp | 9 +--- gdb/testsuite/gdb.dwarf2/valop.exp | 9 +--- gdb/testsuite/gdb.dwarf2/watch-notconst.exp | 9 +--- .../gdb.mi/dw2-ref-missing-frame.exp | 9 +--- .../gdb.python/py-section-script.exp | 3 +- gdb/testsuite/gdb.xml/tdesc-regs.exp | 5 +- gdb/testsuite/lib/dwarf.exp | 30 ++++++++++++ 40 files changed, 152 insertions(+), 249 deletions(-) create mode 100644 gdb/testsuite/lib/dwarf.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 77828ab5a6..9e4a15d455 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,50 @@ +2011-01-19 Yao Qi + + * gdb.asm/asm-source.exp: Replace ARM target triplet with a + canonical form. + Remove "xscale-*-*" + * gdb.xml/tdesc-regs.exp: Likewise. + * gdb.python/py-section-script.exp: Replace ARM target triplet + with canonical form. + Match arm*-*-symbianelf*. + * gdb.base/dup-sect.exp: Likewise. + * lib/dwarf.exp: New. + * gdb.dwarf2/callframecfa.exp: Check dwarf2 support by routine + dwarf2_support. + * gdb.dwarf2/dup-psym.exp: Likewise. + * gdb.dwarf2/dw2-ada-ffffffff.exp: Likewise. + * gdb.dwarf2/dw2-anonymous-func.exp: Likewise. + * gdb.dwarf2/dw2-bad-parameter-type.exp: Likewise. + * gdb.dwarf2/dw2-basic.exp: Likewise. + * gdb.dwarf2/dw2-compressed.exp: Likewise. + * gdb.dwarf2/dw2-const.exp: Likewise. + * gdb.dwarf2/dw2-cp-infcall-ref-static.exp: Likewise. + * gdb.dwarf2/dw2-cu-size.exp: Likewise. + * gdb.dwarf2/dw2-double-set-die-type.exp: Likewise. + * gdb.dwarf2/dw2-empty-namespace.exp: Likewise. + * gdb.dwarf2/dw2-filename.exp: Likewise. + * gdb.dwarf2/dw2-inheritance.exp: Likewise. + * gdb.dwarf2/dw2-inline-param.exp: Likewise. + * gdb.dwarf2/dw2-intercu.exp: Likewise. + * gdb.dwarf2/dw2-intermix.exp: Likewise. + * gdb.dwarf2/dw2-modula2-self-type.exp: Likewise. + * gdb.dwarf2/dw2-noloc.exp: Likewise. + * gdb.dwarf2/dw2-op-call.exp: Likewise. + * gdb.dwarf2/dw2-producer.exp: Likewise. + * gdb.dwarf2/dw2-ranges.exp: Likewise. + * gdb.dwarf2/dw2-ref-missing-frame.exp: Likewise. + * gdb.dwarf2/dw2-stack-boundary.exp: Likewise. + * gdb.dwarf2/dw2-strp.exp: Likewise. + * gdb.dwarf2/dw2-unresolved.exp: Likewise. + * gdb.dwarf2/implptr.exp: Likewise. + * gdb.dwarf2/mac-fileno.exp: Likewise. + * gdb.dwarf2/member-ptr-forwardref.exp: Likewise. + * gdb.dwarf2/pieces.exp: Likewise. + * gdb.dwarf2/pr11465.exp: Likewise. + * gdb.dwarf2/valop.exp: Likewise. + * gdb.dwarf2/watch-notconst.exp: Likewise. + * gdb.mi/dw2-ref-missing-frame.exp: Likewise. + 2011-01-19 Tom Tromey * gdb.python/py-infthread.exp: Add thread tests. diff --git a/gdb/testsuite/gdb.asm/asm-source.exp b/gdb/testsuite/gdb.asm/asm-source.exp index 06b6ac2f1d..bd7c1f0579 100644 --- a/gdb/testsuite/gdb.asm/asm-source.exp +++ b/gdb/testsuite/gdb.asm/asm-source.exp @@ -40,10 +40,7 @@ switch -glob -- [istarget] { set asm-flags "-no-mdebug -I${srcdir}/${subdir} -I${objdir}/${subdir}" set debug-flags "-gdwarf-2" } - "*arm-*-*" { - set asm-arch arm - } - "xscale-*-*" { + "arm*-*-*" { set asm-arch arm } "frv-*-*" { diff --git a/gdb/testsuite/gdb.base/dup-sect.exp b/gdb/testsuite/gdb.base/dup-sect.exp index 8b66fe6200..a93743cb08 100644 --- a/gdb/testsuite/gdb.base/dup-sect.exp +++ b/gdb/testsuite/gdb.base/dup-sect.exp @@ -27,7 +27,8 @@ if {![istarget *-*-linux*] && ![istarget *-*-gnu*] && ![istarget *-*-elf*] - && ![istarget arm-*-eabi*] + && ![istarget arm*-*-eabi*] + && ![istarget arm*-*-symbianelf*] && ![istarget powerpc-*-eabi*]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/callframecfa.exp b/gdb/testsuite/gdb.dwarf2/callframecfa.exp index d3aabcd266..42c02b0977 100644 --- a/gdb/testsuite/gdb.dwarf2/callframecfa.exp +++ b/gdb/testsuite/gdb.dwarf2/callframecfa.exp @@ -12,17 +12,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Test DW_OP_call_frame_cfa. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } # This test can only be run on x86 targets. diff --git a/gdb/testsuite/gdb.dwarf2/dup-psym.exp b/gdb/testsuite/gdb.dwarf2/dup-psym.exp index 19f86ea799..8a35b6aff8 100644 --- a/gdb/testsuite/gdb.dwarf2/dup-psym.exp +++ b/gdb/testsuite/gdb.dwarf2/dup-psym.exp @@ -13,16 +13,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Minimal DWARF-2 unit test # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp b/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp index 90d20f6b08..02e228a1e3 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-ada-ffffffff.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-anonymous-func.exp b/gdb/testsuite/gdb.dwarf2/dw2-anonymous-func.exp index eab4fe565e..3f1e9c2d8e 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-anonymous-func.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-anonymous-func.exp @@ -13,17 +13,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Minimal DWARF-2 unit test # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-bad-parameter-type.exp b/gdb/testsuite/gdb.dwarf2/dw2-bad-parameter-type.exp index 2f44d14a32..7474ba8e63 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-bad-parameter-type.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-bad-parameter-type.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-basic.exp b/gdb/testsuite/gdb.dwarf2/dw2-basic.exp index 45f7796759..3e57d71749 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-basic.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-basic.exp @@ -13,17 +13,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Minimal DWARF-2 unit test # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-compressed.exp b/gdb/testsuite/gdb.dwarf2/dw2-compressed.exp index fbb9717c2c..e7ba79bbad 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-compressed.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-compressed.exp @@ -12,17 +12,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Minimal DWARF-2 unit test # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-const.exp b/gdb/testsuite/gdb.dwarf2/dw2-const.exp index d118c0327f..a0bb89ce27 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-const.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-const.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-cp-infcall-ref-static.exp b/gdb/testsuite/gdb.dwarf2/dw2-cp-infcall-ref-static.exp index 685fcd8fa5..6242154e14 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-cp-infcall-ref-static.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-cp-infcall-ref-static.exp @@ -19,14 +19,9 @@ # Still no C++ compiler is used. if { [skip_cplus_tests] } { continue } +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-cu-size.exp b/gdb/testsuite/gdb.dwarf2/dw2-cu-size.exp index 4f0044b5ab..ec94e2c72e 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-cu-size.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-cu-size.exp @@ -13,6 +13,7 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Test inter-cu references where the referenced DIE is within # initial_length_size bytes of the end of the CU. @@ -20,13 +21,7 @@ # in the length of the CU. */ # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-double-set-die-type.exp b/gdb/testsuite/gdb.dwarf2/dw2-double-set-die-type.exp index 5ca1592f2b..92767d2a5f 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-double-set-die-type.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-double-set-die-type.exp @@ -12,18 +12,13 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Test DW_TAG_inheritance using constant DW_AT_data_member_location # introduced by GCC PR debug/40659. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-empty-namespace.exp b/gdb/testsuite/gdb.dwarf2/dw2-empty-namespace.exp index bd2feb5d02..3fa320e721 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-empty-namespace.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-empty-namespace.exp @@ -12,17 +12,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Test G++ 4.1 producing DW_TAG_namespace with DW_AT_name "::". # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-filename.exp b/gdb/testsuite/gdb.dwarf2/dw2-filename.exp index f6cf8d1243..2d87446c5f 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-filename.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-filename.exp @@ -13,17 +13,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Note: Inspired from dw2-basic.exp. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-inheritance.exp b/gdb/testsuite/gdb.dwarf2/dw2-inheritance.exp index d88907435c..92fd0f3040 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-inheritance.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-inheritance.exp @@ -12,18 +12,13 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Test DW_TAG_inheritance using constant DW_AT_data_member_location # introduced by GCC PR debug/40659. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-inline-param.exp b/gdb/testsuite/gdb.dwarf2/dw2-inline-param.exp index 816cb59d53..1dcdbfb0cb 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-inline-param.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-inline-param.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-intercu.exp b/gdb/testsuite/gdb.dwarf2/dw2-intercu.exp index c995c02cae..a04af7c59d 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-intercu.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-intercu.exp @@ -13,17 +13,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Minimal DWARF-2 unit test # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-intermix.exp b/gdb/testsuite/gdb.dwarf2/dw2-intermix.exp index b87b95447b..4d90510905 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-intermix.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-intermix.exp @@ -12,17 +12,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Intermixed 32-bit and 64-bit DWARF format tests. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-modula2-self-type.exp b/gdb/testsuite/gdb.dwarf2/dw2-modula2-self-type.exp index 452a774bc2..0624d4b030 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-modula2-self-type.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-modula2-self-type.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-noloc.exp b/gdb/testsuite/gdb.dwarf2/dw2-noloc.exp index d963696555..10e365971e 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-noloc.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-noloc.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-op-call.exp b/gdb/testsuite/gdb.dwarf2/dw2-op-call.exp index 559cd0d559..3fcef09759 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-op-call.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-op-call.exp @@ -12,18 +12,13 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Test DW_OP_call2 and DW_OP_call4, PR gdb/10640. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { - return 0 +if {![dwarf2_support]} { + return 0 } set testfile "dw2-op-call" diff --git a/gdb/testsuite/gdb.dwarf2/dw2-producer.exp b/gdb/testsuite/gdb.dwarf2/dw2-producer.exp index 23419deb4e..f1d4942a0f 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-producer.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-producer.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-ranges.exp b/gdb/testsuite/gdb.dwarf2/dw2-ranges.exp index 2875e885f7..4fa3d020c4 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-ranges.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-ranges.exp @@ -12,18 +12,13 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Test DW_TAG_compile_unit with no children and with neither DW_AT_low_pc nor # DW_AT_high_pc but with DW_AT_ranges instead. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { verbose "Skipping DW_AT_ranges test." return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-ref-missing-frame.exp b/gdb/testsuite/gdb.dwarf2/dw2-ref-missing-frame.exp index 3705197da0..af5ba4034f 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-ref-missing-frame.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-ref-missing-frame.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-stack-boundary.exp b/gdb/testsuite/gdb.dwarf2/dw2-stack-boundary.exp index 1273ae4685..78bfefe282 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-stack-boundary.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-stack-boundary.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-strp.exp b/gdb/testsuite/gdb.dwarf2/dw2-strp.exp index 48050ae050..147ada612f 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-strp.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-strp.exp @@ -12,18 +12,13 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Test printint string variables that are optimized out because they # are unreferenced in code, and whose contents appear in .debug_str. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/dw2-unresolved.exp b/gdb/testsuite/gdb.dwarf2/dw2-unresolved.exp index 672040ef41..08bdb97fb8 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-unresolved.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-unresolved.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/implptr.exp b/gdb/testsuite/gdb.dwarf2/implptr.exp index 7800f3d9f9..5bf894b793 100644 --- a/gdb/testsuite/gdb.dwarf2/implptr.exp +++ b/gdb/testsuite/gdb.dwarf2/implptr.exp @@ -12,17 +12,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Test DW_OP_GNU_implicit_pointer. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } # This test can only be run on x86 targets. diff --git a/gdb/testsuite/gdb.dwarf2/mac-fileno.exp b/gdb/testsuite/gdb.dwarf2/mac-fileno.exp index 85776b774f..36495e0c0e 100644 --- a/gdb/testsuite/gdb.dwarf2/mac-fileno.exp +++ b/gdb/testsuite/gdb.dwarf2/mac-fileno.exp @@ -12,18 +12,13 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Check that GDB can gracefully handle macro information that has # bogus file numbers. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.exp b/gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.exp index 122899a31b..d28de4aa5c 100644 --- a/gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.exp +++ b/gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/pieces.exp b/gdb/testsuite/gdb.dwarf2/pieces.exp index 1b43de2838..a8fe30bffc 100644 --- a/gdb/testsuite/gdb.dwarf2/pieces.exp +++ b/gdb/testsuite/gdb.dwarf2/pieces.exp @@ -12,17 +12,11 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . - +load_lib dwarf.exp # Test some DWARF piece operators. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } # This test can only be run on x86 targets. diff --git a/gdb/testsuite/gdb.dwarf2/pr11465.exp b/gdb/testsuite/gdb.dwarf2/pr11465.exp index cad61db490..5baa0b759c 100644 --- a/gdb/testsuite/gdb.dwarf2/pr11465.exp +++ b/gdb/testsuite/gdb.dwarf2/pr11465.exp @@ -12,15 +12,10 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.dwarf2/valop.exp b/gdb/testsuite/gdb.dwarf2/valop.exp index e61c1286f0..f7343ef76d 100644 --- a/gdb/testsuite/gdb.dwarf2/valop.exp +++ b/gdb/testsuite/gdb.dwarf2/valop.exp @@ -12,17 +12,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # Test DW_OP_stack_value and DW_OP_implicit_value. # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } # This test can only be run on x86 targets. diff --git a/gdb/testsuite/gdb.dwarf2/watch-notconst.exp b/gdb/testsuite/gdb.dwarf2/watch-notconst.exp index 952a02a86a..f4e2d520b4 100644 --- a/gdb/testsuite/gdb.dwarf2/watch-notconst.exp +++ b/gdb/testsuite/gdb.dwarf2/watch-notconst.exp @@ -12,17 +12,12 @@ # # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp set test "watch-notconst" # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if ![dwarf2_support] { return 0 } diff --git a/gdb/testsuite/gdb.mi/dw2-ref-missing-frame.exp b/gdb/testsuite/gdb.mi/dw2-ref-missing-frame.exp index d1931e0f94..91f4fb71d3 100644 --- a/gdb/testsuite/gdb.mi/dw2-ref-missing-frame.exp +++ b/gdb/testsuite/gdb.mi/dw2-ref-missing-frame.exp @@ -13,17 +13,12 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . +load_lib dwarf.exp # This test can only be run on targets which support DWARF-2 and use gas. -# For now pick a sampling of likely targets. load_lib mi-support.exp set MIFLAGS "-i=mi" -if {![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget *-*-elf*] - && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] - && ![istarget powerpc-*-eabi*]} { +if {![dwarf2_support]} { return 0 } diff --git a/gdb/testsuite/gdb.python/py-section-script.exp b/gdb/testsuite/gdb.python/py-section-script.exp index 564a031d4e..e51bd7c765 100644 --- a/gdb/testsuite/gdb.python/py-section-script.exp +++ b/gdb/testsuite/gdb.python/py-section-script.exp @@ -22,7 +22,8 @@ if {![istarget *-*-linux*] && ![istarget *-*-gnu*] && ![istarget *-*-elf*] && ![istarget *-*-openbsd*] - && ![istarget arm-*-eabi*] + && ![istarget arm*-*-eabi*] + && ![istarget arm*-*-symbianelf*] && ![istarget powerpc-*-eabi*]} { verbose "Skipping py-section-script.exp because of lack of support." return diff --git a/gdb/testsuite/gdb.xml/tdesc-regs.exp b/gdb/testsuite/gdb.xml/tdesc-regs.exp index d707cec989..224c0827c9 100644 --- a/gdb/testsuite/gdb.xml/tdesc-regs.exp +++ b/gdb/testsuite/gdb.xml/tdesc-regs.exp @@ -27,10 +27,7 @@ set core-regs "" set regdir "" set architecture "" switch -glob -- [istarget] { - "*arm-*-*" { - set core-regs {arm-core.xml} - } - "xscale-*-*" { + "arm*-*-*" { set core-regs {arm-core.xml} } "*m68k-*-*" { diff --git a/gdb/testsuite/lib/dwarf.exp b/gdb/testsuite/lib/dwarf.exp new file mode 100644 index 0000000000..87bc62d2ce --- /dev/null +++ b/gdb/testsuite/lib/dwarf.exp @@ -0,0 +1,30 @@ +# Copyright 2010 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# Return true if the target supports DWARF-2 and uses gas. +# For now pick a sampling of likely targets. +proc dwarf2_support {} { + if {![istarget *-*-linux*] + && ![istarget *-*-gnu*] + && ![istarget *-*-elf*] + && ![istarget *-*-openbsd*] + && ![istarget arm*-*-eabi*] + && ![istarget arm*-*-symbianelf*] + && ![istarget powerpc-*-eabi*]} { + return 0 + } + + return 1 +}