1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
# Copyright 2019-2020 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/>.
# Import a CU into an "artificial" CU. For each DW_TAG DIE in the
# artificial CU, use DW_AT_abstract_origin to refer to a DIE in the
# imported CU. This DWARF file organization is frequently found in
# programs compiled with -flto (and -g) using GCC.
#
# This test reproduces the bug described in BZ 25065 without relying
# on specific compiler versions or use of optimization switches, in
# this case -flto.
if [skip_cplus_tests] {
continue
}
load_lib dwarf.exp
# This test can only be run on targets which support DWARF-2 and use gas.
if {![dwarf2_support]} {
return 0
};
standard_testfile .c .S
# ${testfile} is now "implref-struct". srcfile2 is "implref-struct.S".
set executable ${testfile}
set asm_file [standard_output_file ${srcfile2}]
# We need to know the size of integer and address types in order
# to write some of the debugging info we'd like to generate.
if [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}] {
return -1
}
# Create the DWARF.
Dwarf::assemble $asm_file {
declare_labels cu_label main_label doit_label int_label
declare_labels Foo_label Foo_pointer_type doit_self_label
declare_labels foo_label Foo_destructor_obj_pointer_label
declare_labels Foo_constructor_obj_pointer_label
set int_size [get_sizeof "int" 4]
set addr_size [get_sizeof "void *" 8]
cu {} {
compile_unit {
{language @DW_LANG_C_plus_plus}
{name "<artificial>"}
} {
imported_unit {
{import %$cu_label}
}
subprogram {
{abstract_origin %$main_label}
{MACRO_AT_range {main}}
} {
subprogram {
{abstract_origin %$doit_label}
{MACRO_AT_range {doit}}
} {
formal_parameter {
{abstract_origin %$doit_self_label}
}
}
DW_TAG_variable {
{abstract_origin %$foo_label}
{location 4 data1}
}
}
}
}
cu {} {
cu_label: compile_unit {
{language @DW_LANG_C_plus_plus}
{name "imported_unit.c"}
} {
int_label: base_type {
{byte_size $int_size sdata}
{encoding @DW_ATE_signed}
{name int}
}
main_label: subprogram {
{name main}
{type :$int_label}
{external 1 flag}
} {
Foo_label: class_type {
{name Foo}
{byte_size 1 sdata}
} {
doit_label: subprogram {
{name doit}
{type :$int_label}
{accessibility 1 DW_FORM_data1}
} {
doit_self_label: formal_parameter {
{name this}
{artificial 1 DW_FORM_flag_present}
{type :$Foo_pointer_type}
}
}
Foo_pointer_type: pointer_type {
{byte_size $addr_size sdata}
{type :$Foo_label}
}
}
foo_label: DW_TAG_variable {
{name foo}
{type :$Foo_label}
}
}
}
}
}
if { [prepare_for_testing "failed to prepare" ${testfile} \
[list $srcfile $asm_file] {nodebug}] } {
return -1
}
gdb_test_no_output "set language c++"
set psymtabs_p [psymtabs_p]
# Verify that the partial symtab for the unit importing the partial unit does
# not contain the static partial symbol int, which is defined in the partial
# unit. Test-case for PR25646.
set test "no static partial symbols in importing unit"
if { $psymtabs_p } {
gdb_test "main print psymbols" \
[multi_line \
" Depends on 1 other partial symtabs\." \
"\[^\r\n\]*" \
" Global partial symbols:" \
" `main', function, $hex" \
"" \
".*"] \
$test
} else {
unsupported $test
}
# Verify that there's only one partial symtab for imported_unit.c. Test-case
# for PR25700.
set test "no duplicate psymtab for imported_unit.c"
if { $psymtabs_p } {
set line "Partial symtab for source file imported_unit.c"
gdb_test_multiple "maint print psymbols" $test {
-re -wrap "$line.*$line.*" {
fail $gdb_test_name
}
-re -wrap "$line.*" {
pass $gdb_test_name
}
}
} else {
unsupported $test
}
gdb_test "l imported_unit.c:1" \
"1\timported_unit.c: No such file or directory\."
gdb_test "info source" "\r\nCurrent source file is imported_unit.c\r\n.*" \
"info source for imported_unit.c"
# Sanity check
gdb_test "ptype main" "= int \\(void\\)"
# Each of these tests caused a segfault prior to fixing BZ 25065.
gdb_test "ptype main::Foo" "= class Foo \{\\s+public:\\s+int doit\\(void\\);\\s+\}"
gdb_test "ptype main::foo" "= class Foo \{\\s+public:\\s+int doit\\(void\\);\\s+\}"
|
