blob: 1209a0f217174ccc292426c6f83fd34bad6cd981 (
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
190
|
# Copyright 2009-2021 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/>.
# This file is part of the GDB testsuite. It tests precord debugging
# with shared libraries and a logfile.
# This test suitable only for process record-replay
if ![supports_process_record] {
return
}
if {[skip_shlib_tests]} {
return
}
standard_testfile solib-reverse.c
set precsave [standard_output_file solib.precsave]
set lib1file "shr1"
set lib1src ${lib1file}.c
set library1 [standard_output_file ${lib1file}.sl]
set lib2file "shr2"
set lib2src ${lib2file}.c
set library2 [standard_output_file ${lib2file}.sl]
if [get_compiler_info] {
return -1
}
# Compile the first without debug info so that
# stepping and reverse stepping doesn't end up inside them.
if { [gdb_compile_shlib ${srcdir}/${subdir}/${lib1src} ${library1} ""] != "" } {
untested "failed to compile shared library 1"
return -1
}
if { [gdb_compile_shlib ${srcdir}/${subdir}/${lib2src} ${library2} "debug"] != "" } {
untested "failed to compile shared library 2"
return -1
}
set exec_opts [list debug shlib=${library1} shlib=${library2}]
# Attempt to prevent -Wl,-z,relro which may happen by default with some
# toolchain configurations. Due to PR corefiles/11804 GDB will then produce
# invalid core file.
if { [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile} executable \
[concat $exec_opts additional_flags=-Wl,-z,norelro]] != ""
&& [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile} executable $exec_opts] != "" } {
untested "failed to compile"
return -1
}
# Start with a fresh gdb.
gdb_exit
gdb_start
# Note: The test previously did "set debug-file-directory" to (try to)
# ensure the debug info for the dynamic loader and libc weren't found.
# This doesn't work if the debug info is in the .debug subdirectory.
# Avoiding debug info for system libraries is not germaine to this test
# and is no longer attempted. Instead, the test does not make assumptions
# about whether the debug info is present or not.
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
gdb_load_shlib $library1
gdb_load_shlib $library2
runto_main
if [supports_process_record] {
# Activate process record/replay
gdb_test_no_output "record" "turn on process record"
}
set end_of_main [gdb_get_line_number "end of main" ]
gdb_test "break $end_of_main" \
"Breakpoint $decimal at .*$srcfile, line $end_of_main\." \
"breakpoint at end of main"
gdb_test_multiple "continue" "run to end of main" {
-wrap -re "Breakpoint .* end of main .*" {
pass $gdb_test_name
}
-wrap -re "Process record does not support instruction 0xfae64 at.*" {
kfail "gdb/25038" $gdb_test_name
return -1
}
}
gdb_test "record save $precsave" \
"Saved core file $precsave with execution log\." \
"save process recfile"
gdb_test "kill" "" "kill process, prepare to debug log file" \
"Kill the program being debugged\\? \\(y or n\\) " "y"
gdb_test "record restore $precsave" \
"Restored records from core file .*" \
"reload core file"
#
# Test reverse-step over undebuggable solib functions.
#
# Run forward past some solib function calls.
set end_part_one [gdb_get_line_number " end part one" "$srcfile"]
set end_part_two [gdb_get_line_number " end part two" "$srcfile"]
gdb_test "until $end_part_one" " end part one.*" "run until end part one"
gdb_test "reverse-step" " shr1 three .*" "reverse-step third shr1"
gdb_test "reverse-step" " shr1 two .*" "reverse-step second shr1"
gdb_test "reverse-step" " shr1 one .*" "reverse-step first shr1"
gdb_test "reverse-step" " generic statement.*" "reverse-step generic"
#
# Test reverse-next over undebuggable solib functions.
#
# Run forward again...
gdb_test "until $end_part_one" " end part one.*" "forward to end part one"
gdb_test "reverse-next" " shr1 three .*" "reverse-next third shr1"
gdb_test "reverse-next" " shr1 two .*" "reverse-next second shr1"
gdb_test "reverse-next" " shr1 one .*" "reverse-next first shr1"
gdb_test "reverse-next" " generic statement.*" "reverse-next generic"
#
# Test reverse-step into debuggable solib function
#
gdb_test_multiple "reverse-step" "reverse-step into solib function one" {
-re -wrap "middle part two.*" {
send_gdb "reverse-step\n"
exp_continue
}
-re -wrap "${lib2src}.*" {
pass $gdb_test_name
}
}
gdb_test "reverse-step" "return 2.x.*" "reverse-step within solib function one"
gdb_test "reverse-step" " middle part two.*" "reverse-step back to main one"
gdb_test_multiple "reverse-step" "reverse-step into solib function two" {
-re -wrap "begin part two.*" {
send_gdb "reverse-step\n"
exp_continue
}
-re -wrap "${lib2src}.*" {
pass $gdb_test_name
}
}
gdb_test "reverse-step" "return 2.x.*" "reverse-step within solib function two"
gdb_test "reverse-step" " begin part two.*" "reverse-step back to main two"
#
# Test reverse-next over debuggable solib function
#
gdb_test "until $end_part_two" " end part two.*" "run until end part two"
gdb_test "reverse-next" " middle part two.*" "reverse-next over solib function one"
gdb_test_multiple "reverse-next" "reverse-next over solib function two" {
-re -wrap "middle part two.*" {
send_gdb "reverse-next\n"
exp_continue
}
-re -wrap " begin part two.*" {
pass $gdb_test_name
}
}
|
