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
|
# Copyright 2019 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/>.
# A test of multi-language dictionaries, a solution to symtab/23010 et al.
load_lib dwarf.exp
# This test can only be run on targets which support DWARF.
if {![dwarf2_support]} {
return 0
}
standard_testfile main.c .S
# Create the DWARF. This is derived from the reproducer in the bug
# mentioned above. This DIE tree is typical of compilations wtih
# LTO enabled.
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
declare_labels D45d9 D5079 D5080 D50a9 D50af D5ab2 D5ac2 D5ace D5acf
declare_labels D2135f D2216a D22171 D226c4 D226ca D244ca \
D245da D245e6
declare_labels D41c21 D42025 D42045 D42038 D42045 D420b5
cu {} {
D45d9: compile_unit {
{language @DW_LANG_C_plus_plus}
{name "SerialPortUtils.cpp"}
} {
D5079: base_type {
{byte_size 1 sdata}
{encoding @DW_ATE_unsigned}
{name "char"}
}
D5080: const_type {
{type :$D5079}
}
D50a9: pointer_type {
{byte_size 4 sdata}
{type :$D5080}
}
D50af: const_type {
{type :$D50a9}
}
D5ab2: subprogram {
{external 1 flag}
{linkage_name "_Z18SerialSyncWriteStrPKc"}
} {
D5ac2: formal_parameter {
{name "msg"}
{type :$D50af}
}
D5ace: lexical_block {} {
D5acf: DW_TAG_variable {
{name "p"}
{type :$D50a9}
}
}
}
}
}
cu {} {
D2135f: compile_unit {
{language @DW_LANG_C_plus_plus}
{name "Main.cpp"}
} {
D2216a: base_type {
{byte_size 1 sdata}
{encoding @DW_ATE_unsigned_char}
{name "char"}
}
D22171: const_type {
{type :$D2216a}
}
D226c4: pointer_type {
{byte_size 4 sdata}
{type :$D22171}
}
D226ca: const_type {
{type :$D226c4}
}
D245da: subprogram {
{name "PrintPanicMsg"}
} {
D245e6: formal_parameter {
{name "msg"}
{type :$D226ca}
}
}
}
}
cu {} {
D41c21: compile_unit {
{language @DW_LANG_C99}
{name "<artificial>"}
} {
D42025: subprogram {
{abstract_origin %$D245da}
{low_pc 0x80b60 addr}
{high_pc 0x6c data4}
} {
D42038: formal_parameter {
{abstract_origin %$D245e6}
}
D42045: inlined_subroutine {
{abstract_origin %$D5ab2}
{low_pc 0x8060 addr}
{high_pc 0xc data4}
} {
D420b5: formal_parameter {
{abstract_origin %$D5ac2}
}
}
}
}
}
}
# Build the test executable.
if {[build_executable $testfile.exp $testfile [list $asm_file $srcfile] {}] \
== -1} {
return -1
}
# We force the DIEs above to be read in via "-readnow".
gdb_spawn_with_cmdline_opts "-readnow"
gdb_load $binfile
# All we need to do is check whether GDB is alive. Without
# multidictionaries, it will either crash, assert, or throw an
# internal_error.
gdb_test "p 1" "= 1" "GDB is alive"
|
