1 # Copyright 2013-2019 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 opaque-type-lookup.c opaque-type-lookup-1.S opaque-type-lookup-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
35 global srcdir subdir srcfile
39 # The partial units are laid out so we're not dependent on the order that
40 # they appear in compunit_symtab.includes. We need the one with the
41 # opaque definition to appear first to gdb, so we put it in the middle.
42 # Either the handling of variable_a or variable_b will be broken (in an
45 # However, once a partial unit with a non-opaque type is read in we can
46 # no longer see the bug as gdb will keep looking until it eventually gets
47 # to the defining partial unit, setting aside the symbol lookup cache.
56 {import $partial_unit_with_opaque ref_addr}
60 {import $partial_unit_defining_a ref_addr}
71 {import $partial_unit_defining_b ref_addr}
75 {import $partial_unit_with_opaque ref_addr}
81 partial_unit_with_opaque: partial_unit {
82 {name "partial_unit_with_opaque"}
84 # Normally gdb doesn't add opaque types to the symbol table
85 # but there are times when it will, and in order to exercise
86 # this bug we need this entry in the symbol table.
87 # By giving it a size of 1 we achieve this.
89 opaque_struct_a_label: structure_type {
92 {byte_size 1 DW_FORM_sdata}
95 opaque_struct_b_label: structure_type {
98 {byte_size 1 DW_FORM_sdata}
103 {type :$opaque_struct_a_label}
110 {type :$opaque_struct_b_label}
118 partial_unit_defining_a: partial_unit {
119 {name "partial_unit_defining_a"}
121 char_type1_label: base_type {
123 {encoding @DW_ATE_signed}
124 {byte_size 1 DW_FORM_sdata}
127 struct_a_label: structure_type {
129 {byte_size 1 DW_FORM_sdata}
133 {type :$char_type1_label}
134 {data_member_location 0 DW_FORM_sdata}
140 {type :$struct_a_label}
142 {linkage_name variable_a}
148 partial_unit_defining_b: partial_unit {
149 {name "partial_unit_defining_b"}
151 char_type2_label: base_type {
153 {encoding @DW_ATE_signed}
154 {byte_size 1 DW_FORM_sdata}
157 struct_b_label: structure_type {
159 {byte_size 1 DW_FORM_sdata}
163 {type :$char_type2_label}
164 {data_member_location 0 DW_FORM_sdata}
170 {type :$struct_b_label}
172 {linkage_name variable_b}
177 # GDB expands the symbol table with main at start up,
178 # so keep this separate.
181 {language @DW_LANG_C}
185 {MACRO_AT_func { main ${srcdir}/${subdir}/${srcfile} }}
191 if [prepare_for_testing "failed to prepare" $testfile "${asm_file} ${srcfile} ${srcfile3}" {nodebug}] {
199 gdb_test "p variable_a" " = {xyz = 97 'a'}"
200 gdb_test "p variable_b" " = {xyz = 98 'b'}"