blob: 17530c8cc4b93b40c328b055abe4cfeb0331b936 (
plain)
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
186
187
188
189
|
# Copyright 2015-2022 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/>.
load_lib dwarf.exp
# Test DW_TAG_compile_unit with no children and with neither DW_AT_low_pc nor
# DW_AT_high_pc but with DW_AT_ranges instead.
# This test can only be run on targets which support DWARF-2 and use gas.
if {![dwarf2_support]} {
verbose "Skipping $gdb_test_file_name."
return 0
}
# The .c files use __attribute__.
if [get_compiler_info] {
return -1
}
if !$gcc_compiled {
verbose "Skipping $gdb_test_file_name."
return 0
}
standard_testfile .c -dw.S
set asm_file [standard_output_file $srcfile2]
Dwarf::assemble $asm_file {
global srcdir subdir srcfile srcfile2
declare_labels ranges_label
declare_labels L
# Find start address and length for our functions.
set main_func \
[function_range main [list ${srcdir}/${subdir}/$srcfile]]
set frame2_func \
[function_range frame2 [list ${srcdir}/${subdir}/$srcfile]]
set frame3_func \
[function_range frame3 [list ${srcdir}/${subdir}/$srcfile]]
# Very simple info for this test program. We don't care about
# this information being correct (w.r.t. funtion / argument types)
# just so long as the compilation using makes use of the
# .debug_ranges data then the test achieves its objective.
cu { label cu_label } {
compile_unit {
{language @DW_LANG_C}
{name dw-ranges-base.c}
{stmt_list $L DW_FORM_sec_offset}
{ranges ${ranges_label} DW_FORM_sec_offset}
} {
subprogram {
{external 1 flag}
{name main}
}
subprogram {
{external 1 flag}
{name frame2}
}
subprogram {
{external 1 flag}
{name frame3}
}
}
}
lines {version 2} L {
include_dir "${srcdir}/${subdir}"
file_name "$srcfile" 1
# Generate simple line table program. The line table
# information contained here is not correct, and we really
# don't care, just so long as each function has some line
# table data associated with it. We do make use of the fake
# line numbers that we pick here in the tests below.
program {
DW_LNE_set_address [lindex $main_func 0]
DW_LNS_advance_line 10
DW_LNS_copy
DW_LNS_advance_pc [lindex $main_func 1]
DW_LNS_advance_line 19
DW_LNS_copy
DW_LNE_end_sequence
DW_LNE_set_address [lindex $frame2_func 0]
DW_LNS_advance_line 20
DW_LNS_copy
DW_LNS_advance_pc [lindex $frame2_func 1]
DW_LNS_advance_line 29
DW_LNS_copy
DW_LNE_end_sequence
DW_LNE_set_address [lindex $frame3_func 0]
DW_LNS_advance_line 30
DW_LNS_copy
DW_LNS_advance_pc [lindex $frame3_func 1]
DW_LNS_advance_line 39
DW_LNS_copy
DW_LNE_end_sequence
}
}
# Generate ranges data. This is the point of this whole test
# file, we must have multiple bases specified, so we use a new
# base for each function.
ranges {is_64 [is_64_target]} {
ranges_label: sequence {
base [lindex $main_func 0]
range 0 [lindex $main_func 1]
base [lindex $frame2_func 0]
range 0 [lindex $frame2_func 1]
base [lindex $frame3_func 0]
range 0 [lindex $frame3_func 1]
}
}
aranges {} cu_label {
arange {} [lindex $main_func 0] [lindex $main_func 1]
arange {} [lindex $frame2_func 0] [lindex $frame2_func 1]
arange {} [lindex $frame3_func 0] [lindex $frame3_func 1]
}
}
if { [prepare_for_testing "failed to prepare" ${testfile} \
[list $srcfile $asm_file] {nodebug}] } {
return -1
}
if ![runto_main] {
return -1
}
# Make use of the line numbers we faked in the .debug_line table above.
gdb_test "info line main" \
"Line 11 of .* starts at address .* and ends at .*"
gdb_test "info line frame2" \
"Line 21 of .* starts at address .* and ends at .*"
gdb_test "info line frame3" \
"Line 31 of .* starts at address .* and ends at .*"
# Ensure that the line table correctly tracks the end of sequence markers.
set end_seq_count 0
set prev -1
set seq_count 0
gdb_test_multiple "maint info line-table gdb.dwarf2/dw2-ranges-base.c" \
"count END markers in line table" {
-re "^$decimal\[ \t\]+$decimal\[ \t\]+$hex\(\[ \t\]+Y\)? *\r\n" {
if { $prev != -1 } {
gdb_assert "$prev == 1" \
"prev of normal entry at $seq_count is end marker"
}
set prev 0
incr seq_count
exp_continue
}
-re "^$decimal\[ \t\]+END\[ \t\]+$hex\(\[ \t\]+Y\)? *\r\n" {
if { $prev != -1 } {
gdb_assert "$prev == 0" \
"prev of end marker at $seq_count is normal entry"
}
set prev 1
incr seq_count
incr end_seq_count
exp_continue
}
-re "^\r\n" {
# Empty lines between tables.
exp_continue
}
-re "^$gdb_prompt $" {
gdb_assert [expr $end_seq_count == 3] $gdb_test_name
}
-re ".*linetable: \\(\\(struct linetable \\*\\) 0x0\\):\r\nNo line table.\r\n" {
exp_continue
}
-re ".*linetable: \\(\\(struct linetable \\*\\) $hex\\):\r\nINDEX\[ \t\]+LINE\[ \t\]+ADDRESS\[ \t\]+IS-STMT\[ \t\]PROLOGUE-END *\r\n" {
exp_continue
}
}
|
