1 # Copyright 2013-2021 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/>.
20 # This test can only be run on targets which support DWARF-2 and use gas.
21 if {![dwarf2_support]} {
25 standard_testfile main.c -1.S -2.c
28 set asm_file [standard_output_file $srcfile2]
29 Dwarf::assemble $asm_file {
30 declare_labels partial_unit_defining_a partial_unit_defining_b
31 declare_labels partial_unit_with_opaque
32 declare_labels struct_a_label struct_b_label
33 declare_labels opaque_struct_a_label opaque_struct_b_label
34 declare_labels char_type1_label char_type2_label
36 # The partial units are laid out so we're not dependent on the order that
37 # they appear in compunit_symtab.includes. We need the one with the
38 # opaque definition to appear first to gdb, so we put it in the middle.
39 # Either the handling of variable_a or variable_b will be broken (in an
42 # However, once a partial unit with a non-opaque type is read in we can
43 # no longer see the bug as gdb will keep looking until it eventually gets
44 # to the defining partial unit, setting aside the symbol lookup cache.
53 {import $partial_unit_with_opaque ref_addr}
57 {import $partial_unit_defining_a ref_addr}
68 {import $partial_unit_defining_b ref_addr}
72 {import $partial_unit_with_opaque ref_addr}
78 partial_unit_with_opaque: partial_unit {
79 {name "partial_unit_with_opaque"}
81 # Normally gdb doesn't add opaque types to the symbol table
82 # but there are times when it will, and in order to exercise
83 # this bug we need this entry in the symbol table.
84 # By giving it a size of 1 we achieve this.
86 opaque_struct_a_label: structure_type {
89 {byte_size 1 DW_FORM_sdata}
92 opaque_struct_b_label: structure_type {
95 {byte_size 1 DW_FORM_sdata}
100 {type :$opaque_struct_a_label}
107 {type :$opaque_struct_b_label}
115 partial_unit_defining_a: partial_unit {
116 {name "partial_unit_defining_a"}
118 char_type1_label: base_type {
120 {encoding @DW_ATE_signed}
121 {byte_size 1 DW_FORM_sdata}
124 struct_a_label: structure_type {
126 {byte_size 1 DW_FORM_sdata}
130 {type :$char_type1_label}
131 {data_member_location 0 DW_FORM_sdata}
137 {type :$struct_a_label}
139 {linkage_name variable_a}
145 partial_unit_defining_b: partial_unit {
146 {name "partial_unit_defining_b"}
148 char_type2_label: base_type {
150 {encoding @DW_ATE_signed}
151 {byte_size 1 DW_FORM_sdata}
154 struct_b_label: structure_type {
156 {byte_size 1 DW_FORM_sdata}
160 {type :$char_type2_label}
161 {data_member_location 0 DW_FORM_sdata}
167 {type :$struct_b_label}
169 {linkage_name variable_b}
174 # GDB expands the symbol table with main at start up,
175 # so keep this separate.
178 {language @DW_LANG_C}
182 {MACRO_AT_func { main }}
188 if [prepare_for_testing "failed to prepare" $testfile "${asm_file} ${srcfile} ${srcfile3}" {nodebug}] {
196 gdb_test "p variable_a" " = {xyz = 97 'a'}"
197 gdb_test "p variable_b" " = {xyz = 98 'b'}"