diff options
| author | Tom Tromey <tromey@adacore.com> | 2022-03-17 08:36:01 -0600 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2022-04-12 06:38:01 -0600 |
| commit | 44a29af963e666459a7a0a8057c7282bc5ab0792 (patch) | |
| tree | f1979f4676a8ee07bfe75672853598f35db7462a /gdb | |
| parent | 278c98c830befc706286b56da9e922e5342d62a9 (diff) | |
| download | gdb-44a29af963e666459a7a0a8057c7282bc5ab0792.zip gdb-44a29af963e666459a7a0a8057c7282bc5ab0792.tar.gz gdb-44a29af963e666459a7a0a8057c7282bc5ab0792.tar.bz2 | |
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".
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/gdb.ada/interface.exp | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/iwide.exp | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/mi_interface.exp | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/tagged.exp | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/tagged_access.exp | 5 |
5 files changed, 25 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/interface.exp b/gdb/testsuite/gdb.ada/interface.exp index 834da12..06b9660 100644 --- a/gdb/testsuite/gdb.ada/interface.exp +++ b/gdb/testsuite/gdb.ada/interface.exp @@ -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 ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/iwide.exp b/gdb/testsuite/gdb.ada/iwide.exp index 6f522ff..5d24ae5 100644 --- a/gdb/testsuite/gdb.ada/iwide.exp +++ b/gdb/testsuite/gdb.ada/iwide.exp @@ -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 ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_interface.exp b/gdb/testsuite/gdb.ada/mi_interface.exp index 89e2fde..fa176e2 100644 --- a/gdb/testsuite/gdb.ada/mi_interface.exp +++ b/gdb/testsuite/gdb.ada/mi_interface.exp @@ -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 ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/tagged.exp b/gdb/testsuite/gdb.ada/tagged.exp index 0e9d15f..6fb8a41 100644 --- a/gdb/testsuite/gdb.ada/tagged.exp +++ b/gdb/testsuite/gdb.ada/tagged.exp @@ -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]] != "" } { diff --git a/gdb/testsuite/gdb.ada/tagged_access.exp b/gdb/testsuite/gdb.ada/tagged_access.exp index 664a50d..3649c54 100644 --- a/gdb/testsuite/gdb.ada/tagged_access.exp +++ b/gdb/testsuite/gdb.ada/tagged_access.exp @@ -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]] != "" } { |