1 # This testcase is part of GDB, the GNU debugger.
3 # Copyright 2018-2019 Free Software Foundation, Inc.
5 # This program is free software; you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with this program. If not, see <http://www.gnu.org/licenses/>.
19 # Some targets can't call functions, so don't even bother with this
22 if [target_info exists gdb,cannot_call_functions] {
23 unsupported "this target can not call functions"
27 # Only test C++ if we are able. Always use C.
28 if { [skip_cplus_tests] || [get_compiler_info "c++"] } {
36 remote_exec host "rm -rf [standard_output_file ${dir}]"
37 remote_exec host "mkdir -p [standard_output_file ${dir}]"
41 set int_types { tc ts ti tl tll }
42 set float_types { tf td tld }
43 set complex_types { tfc tdc tldc }
45 set compile_flags {debug}
46 if [support_complex_tests] {
47 lappend compile_flags "additional_flags=-DTEST_COMPLEX"
48 lappend compile_flags "additional_flags=-Wno-psabi"
51 # Given N (0..25), return the corresponding alphabetic letter in upper
55 return [string range "ABCDEFGHIJKLMNOPQRSTUVWXYZ" $n $n]
58 # Compile a variant of nested-structs.c using TYPES to specify the
59 # types of the struct fields within the source. Run up to main.
60 # Also updates the global "testfile" to reflect the most recent build.
62 proc start_nested_structs_test { lang types } {
73 # Create the additional flags
74 set flags $compile_flags
77 for {set n 0} {$n<[llength ${types}]} {incr n} {
79 set t [lindex ${types} $n]
80 lappend flags "additional_flags=-Dt${m}=${t}"
81 append testfile "-" "$t"
84 set binfile [standard_output_file ${dir}/${testfile}]
85 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable "${flags}"] != "" } {
86 unresolved "failed to compile"
90 # Start with a fresh gdb.
91 clean_restart ${binfile}
93 # Make certain that the output is consistent
94 gdb_test_no_output "set print sevenbit-strings"
95 gdb_test_no_output "set print address off"
96 gdb_test_no_output "set print pretty off"
97 gdb_test_no_output "set width 0"
98 gdb_test_no_output "set print elements 300"
101 if { ![runto_main] } then {
102 fail "can't run to main"
106 # Now continue forward to a suitable location to run the tests.
107 # Some targets only enable the FPU on first use, so ensure that we
108 # have used the FPU before we make calls from GDB to code that
110 gdb_breakpoint [gdb_get_line_number "Break Here"] temporary
111 gdb_continue_to_breakpoint "breakpt" ".* Break Here\\. .*"
116 # Assuming GDB is stopped at main within a test binary, run some tests
117 # passing structures, and reading return value structures.
119 proc run_tests { lang types } {
122 foreach {name} {struct_01_01 struct_01_02 struct_01_03 struct_01_04
123 struct_02_01 struct_02_02 struct_02_03 struct_02_04
124 struct_04_01 struct_04_02 struct_04_03 struct_04_04
125 struct_05_01 struct_05_02 struct_05_03 struct_05_04
126 struct_static_02_01 struct_static_02_02 struct_static_02_03 struct_static_02_04
127 struct_static_04_01 struct_static_04_02 struct_static_04_03 struct_static_04_04
128 struct_static_06_01 struct_static_06_02 struct_static_06_03 struct_static_06_04} {
130 # Only run static member tests on C++
131 if { $lang == "c" && [regexp "static" $name match] } {
135 if { $lang == "c++" && $name == "struct_02_01"
136 && [regexp "^types-(tf-t(c|s|i)|t(c|s|i)-tf)" $types match] } {
137 setup_kfail gdb/25096 "x86_64-*-linux*"
139 gdb_test "p/d check_arg_${name} (ref_val_${name})" "= 1"
141 set refval [ get_valueof "" "ref_val_${name}" "" ]
142 verbose -log "Refval: ${refval}"
144 set test "check return value ${name}"
145 if { ${refval} != "" } {
147 set answer [ get_valueof "" "rtn_str_${name} ()" "XXXX"]
148 verbose -log "Answer: ${answer}"
150 if { $lang == "c++" && $name == "struct_02_01"
151 && [regexp "^types-(tf-t(c|s|i)|t(c|s|i)-tf)" $types match] } {
152 setup_kfail gdb/25096 "x86_64-*-linux*"
154 gdb_assert [string eq ${answer} ${refval}] ${test}
161 # Set up a test prefix, compile the test binary, run to main, and then
164 proc start_gdb_and_run_tests { lang types } {
168 append prefix "-" "${t}"
171 foreach_with_prefix l $lang {
172 with_test_prefix $prefix {
173 if { [start_nested_structs_test $l $types] } {
180 foreach ta $int_types {
181 start_gdb_and_run_tests $lang $ta
184 if [support_complex_tests] {
185 foreach ta $complex_types {
186 start_gdb_and_run_tests $lang $ta
190 if ![gdb_skip_float_test] {
191 foreach ta $float_types {
192 start_gdb_and_run_tests $lang $ta
195 foreach ta $int_types {
196 foreach tb $float_types {
197 start_gdb_and_run_tests $lang [list $ta $tb]
201 foreach ta $float_types {
202 foreach tb $int_types {
203 start_gdb_and_run_tests $lang [list $ta $tb]
206 foreach tb $float_types {
207 start_gdb_and_run_tests $lang [list $ta $tb]