diff --git a/gdb/testsuite/gdb.base/complex.exp b/gdb/testsuite/gdb.base/complex.exp index bcea6ad9ce3..776a69fe757 100644 --- a/gdb/testsuite/gdb.base/complex.exp +++ b/gdb/testsuite/gdb.base/complex.exp @@ -26,7 +26,7 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} { if [runto f2] then { get_debug_format - if { [test_compiler_info gcc-2-*] && [test_debug_format "DWARF 2"] } then { + if { [test_compiler_info gcc-2-*] && [test_debug_format "DWARF \[0-9\]"] } then { setup_xfail "*-*-*" } gdb_test "p *y" "\\\$\[0-9\]* = \{c = 42 '\\*', f = 1 \\+ 0i\}" \ diff --git a/gdb/testsuite/gdb.base/constvars.exp b/gdb/testsuite/gdb.base/constvars.exp index 1f99595128e..8d7bf605979 100644 --- a/gdb/testsuite/gdb.base/constvars.exp +++ b/gdb/testsuite/gdb.base/constvars.exp @@ -59,7 +59,7 @@ get_debug_format proc local_compiler_xfail_check { } { if { [test_compiler_info gcc-2-*] } then { if { ![test_debug_format "HP"] \ - && ![test_debug_format "DWARF 2"] } then { + && ![test_debug_format "DWARF \[0-9\]"] } then { setup_xfail "*-*-*" } } diff --git a/gdb/testsuite/gdb.base/included.exp b/gdb/testsuite/gdb.base/included.exp index 85b39a653eb..0c04362dcff 100644 --- a/gdb/testsuite/gdb.base/included.exp +++ b/gdb/testsuite/gdb.base/included.exp @@ -22,7 +22,7 @@ gdb_test_no_output "set listsize 1" gdb_test "list -q main" ".*" get_debug_format -set non_dwarf [expr ! [test_debug_format "DWARF 2"]] +set non_dwarf [expr ! [test_debug_format "DWARF \[0-9\]"]] # We should be able to find the source file containing the definition, # even though it was an included header. diff --git a/gdb/testsuite/gdb.base/structs.exp b/gdb/testsuite/gdb.base/structs.exp index ae847f85a50..0e4a7ec2cb1 100644 --- a/gdb/testsuite/gdb.base/structs.exp +++ b/gdb/testsuite/gdb.base/structs.exp @@ -232,8 +232,8 @@ proc test_struct_calls { n } { set tests "call $n ${testfile}" # Call fun${n}, checking the printed return-value. - setup_compiler_kfails structs-tc-tll gcc-3-3-* "DWARF 2" i*86-*-* gdb/1455 - setup_compiler_kfails structs-tc-td gcc-3-3-* "DWARF 2" i*86-*-* gdb/1455 + setup_compiler_kfails structs-tc-tll gcc-3-3-* "DWARF \[0-9\]" i*86-*-* gdb/1455 + setup_compiler_kfails structs-tc-td gcc-3-3-* "DWARF \[0-9\]" i*86-*-* gdb/1455 gdb_test "p/c fun${n}()" "[foo ${n}]" "p/c fun(); ${tests}" # Check that GDB can always pass a structure to an inferior function. @@ -244,8 +244,8 @@ proc test_struct_calls { n } { # examining that global to confirm that the value is as expected. gdb_test_no_output "call Fun${n}(foo${n})" "call Fun(foo); ${tests}" - setup_compiler_kfails structs-tc-tll gcc-3-3-* "DWARF 2" i*86-*-* gdb/1455 - setup_compiler_kfails structs-tc-td gcc-3-3-* "DWARF 2" i*86-*-* gdb/1455 + setup_compiler_kfails structs-tc-tll gcc-3-3-* "DWARF \[0-9\]" i*86-*-* gdb/1455 + setup_compiler_kfails structs-tc-td gcc-3-3-* "DWARF \[0-9\]" i*86-*-* gdb/1455 gdb_test "p/c L${n}" [foo ${n}] "p/c L; ${tests}" } diff --git a/gdb/testsuite/gdb.base/volatile.exp b/gdb/testsuite/gdb.base/volatile.exp index ae701340aa9..212ceaf34d6 100644 --- a/gdb/testsuite/gdb.base/volatile.exp +++ b/gdb/testsuite/gdb.base/volatile.exp @@ -60,7 +60,7 @@ get_debug_format proc local_compiler_xfail_check { } { if { [test_compiler_info gcc-2-*] } then { if { ![test_debug_format "HP"] \ - && ![test_debug_format "DWARF 2"] } then { + && ![test_debug_format "DWARF \[0-9\]"] } then { setup_xfail "*-*-*" } } diff --git a/gdb/testsuite/gdb.cp/class2.exp b/gdb/testsuite/gdb.cp/class2.exp index 9dae91777e5..92715ddd29a 100644 --- a/gdb/testsuite/gdb.cp/class2.exp +++ b/gdb/testsuite/gdb.cp/class2.exp @@ -67,7 +67,7 @@ gdb_test_multiple "print * aap" "print * aap at marker return 0" { pass "print * aap at marker return 0" } -re "= {.*a1 = .*}\r\n$gdb_prompt $" { - if { [test_compiler_info gcc-2-*] && [test_debug_format "DWARF 2"] } { + if { [test_compiler_info gcc-2-*] && [test_debug_format "DWARF \[0-9\]"] } { # gcc 2.95.3 -gdwarf-2 setup_kfail "gdb/1465" "*-*-*" } diff --git a/gdb/testsuite/gdb.cp/m-static.exp b/gdb/testsuite/gdb.cp/m-static.exp index 15932038487..98df116e6ec 100644 --- a/gdb/testsuite/gdb.cp/m-static.exp +++ b/gdb/testsuite/gdb.cp/m-static.exp @@ -48,7 +48,7 @@ if ![runto_main] then { } get_debug_format -set non_dwarf [expr ! [test_debug_format "DWARF 2"]] +set non_dwarf [expr ! [test_debug_format "DWARF \[0-9\]"]] # First, run to after we've constructed all the objects: diff --git a/gdb/testsuite/gdb.dwarf2/pr10770.exp b/gdb/testsuite/gdb.dwarf2/pr10770.exp index 89542ffbabc..26644a57b44 100644 --- a/gdb/testsuite/gdb.dwarf2/pr10770.exp +++ b/gdb/testsuite/gdb.dwarf2/pr10770.exp @@ -25,9 +25,9 @@ if {![runto_main]} { return -1 } -# This test also requires DWARF 2. +# This test also requires DWARF. get_debug_format -if {![test_debug_format "DWARF 2"]} { +if {![test_debug_format "DWARF \[0-9\]"]} { return -1 } diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index b145fe8e2e8..70fa2b3a801 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -3683,8 +3683,8 @@ gdb_caching_proc skip_ifunc_tests { # backtraces. Requires get_compiler_info and get_debug_format. proc skip_inline_frame_tests {} { - # GDB only recognizes inlining information in DWARF 2 (DWARF 3). - if { ! [test_debug_format "DWARF 2"] } { + # GDB only recognizes inlining information in DWARF. + if { ! [test_debug_format "DWARF \[0-9\]"] } { return 1 } @@ -3702,8 +3702,8 @@ proc skip_inline_frame_tests {} { # inlined functions. Requires get_compiler_info and get_debug_format. proc skip_inline_var_tests {} { - # GDB only recognizes inlining information in DWARF 2 (DWARF 3). - if { ! [test_debug_format "DWARF 2"] } { + # GDB only recognizes inlining information in DWARF. + if { ! [test_debug_format "DWARF \[0-9\]"] } { return 1 }