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
|
# Copyright 2020-2024 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/>.
# Variant of struct-with-sig.exp where TUs are in .gnu_debugaltlink file.
load_lib dwarf.exp
# This test can only be run on targets which support DWARF-2 and use gas.
require dwarf2_support
standard_testfile main-foo.c .S .S
set build_id [string repeat ff 20]
# Make some DWARF for the dwz file.
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
build_id $::build_id
tu {} 0x0000000000000001 the_type_i {
type_unit {} {
declare_labels int_type
the_type_i: structure_type {
{name s}
{byte_size 4 sdata}
} {
member {
{name i}
{type :$int_type}
}
}
int_type: base_type {
{name int}
{encoding @DW_ATE_signed}
{byte_size 4 sdata}
}
}
}
tu {} 0x0000000000000002 the_type_j {
type_unit {} {
declare_labels int_type
the_type_j: structure_type {
{name s}
{byte_size 4 sdata}
} {
member {
{name j}
{type :$int_type}
}
}
int_type: base_type {
{name int}
{encoding @DW_ATE_signed}
{byte_size 4 sdata}
}
}
}
}
# We're using an object instead of executable here to keep cc-with-tweaks.sh
# from modifying it. It also means we can set the build-id, rather than
# having to extract it.
if { [gdb_compile $asm_file $binfile.dwz object {nodebug}] != "" } {
return -1
}
set host_dwz_file [gdb_remote_download host $binfile.dwz]
# Make some DWARF for the executable.
set asm_file [standard_output_file $srcfile3]
Dwarf::assemble $asm_file {
gnu_debugaltlink $::host_dwz_file $::build_id
cu {} {
compile_unit {
{DW_AT_language @DW_LANG_C}
{DW_AT_name main.c}
} {
structure_type {
{name s}
{signature 0x0000000000000001 ref_sig8}
{declaration 1 flag}
}
DW_TAG_subprogram {
{MACRO_AT_func {main}}
}
}
}
cu {} {
compile_unit {
{DW_AT_language @DW_LANG_C}
{DW_AT_name foo.c}
} {
structure_type {
{name s}
{signature 0x0000000000000002 ref_sig8}
{declaration 1 flag}
}
DW_TAG_subprogram {
{MACRO_AT_func {foo}}
}
}
}
}
save_vars { GDBFLAGS } {
append GDBFLAGS " -iex \"maint set dwarf synchronous on\""
if { [prepare_for_testing "failed to prepare" ${testfile} \
[list $srcfile $asm_file] {nodebug}] } {
return -1
}
}
set re "DWARF Error: .debug_types section not supported in dwz file"
gdb_assert { [regexp $re $gdb_file_cmd_msg] } "Dwarf Error message"
|
