Require GNAT debug info for some Ada tests

A few Ada tests require some debug info in the GNAT runtime.  When run
without this info, these tests can't pass.  This patch changes these
tests to detect this situation and stop with "untested".
This commit is contained in:
Tom Tromey
2022-03-17 08:36:01 -06:00
parent 278c98c830
commit 44a29af963
5 changed files with 25 additions and 0 deletions

View File

@@ -17,6 +17,11 @@ load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
if {![gnat_runtime_has_debug_info]} {
untested "GNAT runtime debuginfo required for this test"
return -1
}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } {

View File

@@ -17,6 +17,11 @@ load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
if {![gnat_runtime_has_debug_info]} {
untested "GNAT runtime debuginfo required for this test"
return -1
}
standard_ada_testfile p
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } {

View File

@@ -17,6 +17,11 @@ load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
if {![gnat_runtime_has_debug_info]} {
untested "GNAT runtime debuginfo required for this test"
return -1
}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat12 ]] != "" } {

View File

@@ -17,6 +17,11 @@ load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
if {![gnat_runtime_has_debug_info]} {
untested "GNAT runtime debuginfo required for this test"
return -1
}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {

View File

@@ -17,6 +17,11 @@ load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
if {![gnat_runtime_has_debug_info]} {
untested "GNAT runtime debuginfo required for this test"
return -1
}
standard_ada_testfile p
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {