1 # Copyright 2014-2022 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <http://www.gnu.org/licenses/>.
17 set using_clang [test_compiler_info clang*]
19 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
27 set sizeof_int [get_sizeof "int" 4]
29 # Check that VLA passed to function (pointer) points to the first element.
30 gdb_breakpoint [gdb_get_line_number "foo_bp"]
31 gdb_continue_to_breakpoint "foo_bp"
32 gdb_test "print vla_ptr" "\\\(int \\\*\\\) $hex" "print vla_ptr (foo)"
33 gdb_test "print *vla_ptr" " = 2" "print *vla_ptr (foo)"
35 gdb_breakpoint [gdb_get_line_number "bar_bp"]
36 gdb_continue_to_breakpoint "bar_bp"
37 gdb_test "print vla_ptr" "\\\(int \\\*\\\) $hex" "print vla_ptr (bar)"
38 gdb_test "print *vla_ptr" " = 2" "print *vla_ptr (bar)"
40 gdb_breakpoint [gdb_get_line_number "vla_func_bp"]
41 gdb_continue_to_breakpoint "vla_func_bp"
43 gdb_test_multiple "print td_vla" "" {
44 -re -wrap " = \\\{4, 5, 6, 7, 8\\\}" {
49 # Clang 10.0.1 fails to generate complete type info, filed as
50 # llvm PR48247 - "vla var with typedef'd type has incomplete
51 # debug info". See note below.
53 # Verify that despite the incomplete type info, the variable is
54 # there and has the right value.
55 gdb_test "p *td_vla@5" " = \\\{4, 5, 6, 7, 8\\\}"
62 # Clang 10.0.1 generates this DWARF for td_vla:
65 # <2><19f>: Abbrev Number: 6 (DW_TAG_variable)
66 # <1a0> DW_AT_location : 0x39 (location list)
67 # <1a4> DW_AT_name : td_vla
68 # <1aa> DW_AT_type : <0x1ae>
70 # <2><1ae>: Abbrev Number: 7 (DW_TAG_typedef)
71 # <1af> DW_AT_type : <0x1fc>
72 # <1b3> DW_AT_name : typedef_vla
74 # <1><1fc>: Abbrev Number: 11 (DW_TAG_array_type)
75 # <1fd> DW_AT_type : <0x1d3>
76 # <2><201>: Abbrev Number: 14 (DW_TAG_subrange_type)
77 # <202> DW_AT_type : <0x1f5>
79 # The subrange type is missing the count attribute.