blob: c28f45c5e5c7ec331fe9f3dab0bb58c587e7f2ff (
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
|
# Copyright 2013-2023 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
# This test can only be run on targets which support DWARF-2.
require dwarf2_support
# Can't save an index with readnow.
require !readnow
standard_testfile main.c
if { [prepare_for_testing "failed to prepare" "${testfile}" \
[list ${srcfile}]] } {
return -1
}
# Add a .gdb_index section to PROGRAM.
# PROGRAM is assumed to be the output of standard_output_file.
# Returns the path of the program or "" if there is a failure.
# If there is a failure it will have already been logged.
# Use local prefix to prevent overriding add_gdb_index from lib/gdb.exp.
proc local_add_gdb_index { program } {
set filename [file tail ${program}]
set host_program [gdb_remote_download host $program]
set index_file [host_standard_output_file $filename.gdb-index]
set tmpdir [host_standard_output_file .tmp]
set dwz $tmpdir/$filename.dwz
set dwz_index_file [host_standard_output_file $filename.dwz.gdb-index]
verbose -log "index_file: ${index_file}"
remote_file host delete ${index_file}
remote_file host delete ${dwz_index_file}
gdb_test_no_output "save gdb-index [file dirname ${index_file}]" \
"save gdb-index for file $filename"
# No point in continuing if generating the index failed.
# N.B.: There are times when gdb won't create an index, and it's not a
# failure. However, in our case we need an index. So if you find one
# not being generated, you'll either have to tweak the .c file or maybe
# add a flag to force an index to be generated.
if { [remote_file host exists ${index_file}] } {
pass "gdb-index file created"
} else {
fail "gdb-index file created"
return ""
}
set host_program_with_index $host_program.with-index
set program_with_index $program.with-index
if {[run_on_host "objcopy" [gdb_find_objcopy] \
[join \
[list \
"--remove-section .gdb_index" \
"--add-section .gdb_index=$index_file" \
"--set-section-flags .gdb_index=readonly" \
"$host_program" \
"$host_program_with_index"]]]} {
return ""
}
with_test_prefix "modify dwz file" {
if { [remote_file host exists ${dwz_index_file}] } {
# We're modifying $dwz in place, otherwise we'd have to update
# .gnu_debugaltlink in $program.
set args [join [list "--remove-section .gdb_index" \
" --add-section .gdb_index=$dwz_index_file" \
" --set-section-flags .gdb_index=readonly $dwz"]]
if {[run_on_host "objcopy" [gdb_find_objcopy] "$args"]} {
return ""
}
}
}
return [list \
[remote_upload host $host_program_with_index $program_with_index] \
$host_program_with_index]
}
# Build a copy of the program with an index (.gdb_index/.debug_names).
# But only if the toolchain didn't already create one: gdb doesn't support
# building an index from a program already using one.
set test "check if index present"
gdb_test_multiple "mt print objfiles ${testfile}" $test {
-re "gdb_index.*${gdb_prompt} $" {
set binfile_with_index $binfile
set host_binfile_with_index [gdb_remote_download host $binfile]
}
-re "debug_names.*${gdb_prompt} $" {
set binfile_with_index $binfile
set host_binfile_with_index [gdb_remote_download host $binfile]
}
-re "(Psymtabs|Cooked).*${gdb_prompt} $" {
lassign [local_add_gdb_index $binfile] binfile_with_index host_binfile_with_index
if { ${binfile_with_index} == "" } {
return -1
}
}
-re ".*${gdb_prompt} $" {
fail "unrecognized symbol reader"
}
}
# Ok, we have a copy of $binfile with an index.
# Restart gdb and verify the index was used.
clean_restart ${binfile_with_index}
gdb_test "mt print objfiles ${testfile}" \
"(gdb_index|debug_names).*" \
"index used"
# Make gdb re-read symbols and see if .gdb_index/.debug_names still
# gets used. symtab/15885
# There is gdb_touch_execfile, but it doesn't handle remote hosts.
# Is touch portable enough?
# First make sure enough time has passed, file mtime resolution is seconds.
gdb_test_no_output "shell sleep 1"
if {[run_on_host "touch binary" touch $host_binfile_with_index]} {
return -1
}
if ![runto_main] {
return -1
}
gdb_test "mt print objfiles ${testfile}" \
"(gdb_index|debug_names).*" \
"index used after symbol reloading"
|
