forked from Imagelibrary/binutils-gdb
be382ece16
gnat-llvm does not currently handle Scalar_Storage_Order. This patch changes the scalar_storage.exp test to check the compiler error messages and report "unsupported" in this case. This way, the test ought to start working automatically if this feature is added to gnat-llvm.
55 lines
1.9 KiB
Plaintext
55 lines
1.9 KiB
Plaintext
# Copyright 2019-2024 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 <http://www.gnu.org/licenses/>.
|
|
|
|
# Test that range types with scalar storage order are handled
|
|
# properly.
|
|
|
|
load_lib "ada.exp"
|
|
|
|
require allow_ada_tests
|
|
|
|
standard_ada_testfile storage
|
|
|
|
# Compilation here will fail with gnat-llvm, because at the moment it
|
|
# does not support Scalar_Storage_Order. However, if that is ever
|
|
# implemented, we want the test to start working. So, we examine the
|
|
# output before deciding if this is a real failure.
|
|
set output [gdb_compile_ada_1 "${srcfile}" "${binfile}" executable debug]
|
|
if {$output != ""} {
|
|
if {[regexp "error: reverse storage order .* not supported by LLVM" $output]} {
|
|
unsupported "scalar storage order not supported"
|
|
} else {
|
|
# Otherwise issue the fail.
|
|
gdb_compile_test $srcfile $result
|
|
}
|
|
# Either way we're not running this test.
|
|
return
|
|
}
|
|
|
|
clean_restart ${testfile}
|
|
|
|
set bp_location [gdb_get_line_number "START" ${testdir}/storage.adb]
|
|
if {![runto "storage.adb:$bp_location"]} {
|
|
return
|
|
}
|
|
|
|
gdb_test "print V_LE" "= \\(value => 126, another_value => 12, color => green\\)"
|
|
|
|
# This requires a compiler fix that is in GCC 14.
|
|
if { ![gnat_version_compare >= 14] } {
|
|
setup_kfail "DW_AT_endianity on enum types" *-*-*
|
|
}
|
|
gdb_test "print V_BE" "= \\(value => 126, another_value => 12, color => green\\)"
|