blob: 0c50cdc4f79bf34f818292540961377f6ff14f1a (
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
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
|
# Copyright 2008-2016 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 reverse stepping.
# Lots of code borrowed from "step-test.exp".
#
# Test step and next with a reloaded process record file.
#
# This test suitable only for process record-replay
if ![supports_process_record] {
return
}
standard_testfile step-reverse.c
set precsave [standard_output_file step.precsave]
if { [prepare_for_testing "failed to prepare" $testfile $srcfile] } {
return -1
}
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"
# This can take awhile.
with_timeout_factor 20 {
gdb_test "continue" "Breakpoint .* end of main .*" "run to end of main"
}
# So can this, against gdbserver, for example.
with_timeout_factor 10 {
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"
# plain vanilla step/next (no count)
gdb_test "next" ".*NEXT TEST 1.*" "next test 1"
gdb_test "step" ".*STEP TEST 1.*" "step test 1"
# step/next with count
gdb_test "next 2" ".*NEXT TEST 2.*" "next test 2"
gdb_test "step 3" ".*STEP TEST 2.*" "step test 2"
# step over call
gdb_test "step" ".*NEXT OVER THIS CALL.*" "step up to call"
gdb_test "next" ".*STEP INTO THIS CALL.*" "next over call"
# step into call
gdb_test "step" ".*ARRIVED IN CALLEE.*" "step into call"
# finish out of call
set test_message "finish out of fn call"
gdb_test_multiple "finish" "$test_message" {
-re "FINISH TEST.*$gdb_prompt $" {
pass "$test_message"
}
-re "STEP INTO THIS CALL.*$gdb_prompt $" {
send_gdb "step\n"
exp_continue
}
}
# stepi over flat code (no calls)
set test_message "simple stepi"
gdb_test_multiple "stepi" "$test_message" {
-re "STEPI TEST.*$gdb_prompt $" {
pass "$test_message"
}
-re "FINISH TEST.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
-re "NEXTI TEST.*$gdb_prompt $" {
fail "$test_message (too far)"
}
}
# stepi into a function call
set test_message "stepi into function call"
gdb_test_multiple "stepi" "$test_message" {
-re "ARRIVED IN CALLEE.*$gdb_prompt $" {
pass "$test_message"
}
-re "NEXTI TEST.*$gdb_prompt $" {
fail "$test_message (too far)"
}
-re "RETURN FROM CALLEE.*$gdb_prompt $" {
fail "$test_message (too far)"
}
-re "ENTER CALLEE.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
-re "STEPI TEST.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
}
# stepi thru return of a function call
set test_message "stepi back from function call"
gdb_test_multiple "stepi" "$test_message" {
-re "NEXTI TEST.*$gdb_prompt $" {
pass "$test_message"
}
-re "ARRIVED IN CALLEE.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
-re "RETURN FROM CALLEE.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
-re "STEPI TEST.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
-re "ENTER CALLEE.*$gdb_prompt $" {
fail "$test_message (too far)"
}
}
###
###
###
# Set reverse execution direction
gdb_test_no_output "set exec-dir reverse" "set reverse execution"
# stepi backward thru return and into a function
set stepi_location [gdb_get_line_number "ARRIVED IN CALLEE" "$srcfile"]
set test_message "reverse stepi thru function return"
gdb_test_multiple "stepi" "$test_message" {
-re "NEXTI TEST.*$gdb_prompt $" {
fail "$test_message (start statement)"
}
-re "RETURN FROM CALLEE.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
-re "$hex\[ \t\]*$stepi_location.*ARRIVED IN CALLEE.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
-re "ARRIVED IN CALLEE.*$gdb_prompt $" {
pass "$test_message"
}
-re "ENTER CALLEE.*$gdb_prompt $" {
fail "$test_message (too far)"
}
-re "STEPI TEST.*$gdb_prompt $" {
fail "$test_message (too far)"
}
}
# stepi backward out of a function call
set stepi_location [gdb_get_line_number "STEPI TEST" "$srcfile"]
set test_message "reverse stepi from a function call"
gdb_test_multiple "stepi" "$test_message" {
-re "ARRIVED IN CALLEE.*$gdb_prompt $" {
fail "$test_message (start statement)"
}
-re "ENTER CALLEE.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
-re "${hex} in main .*:$stepi_location.*STEPI TEST.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
-re "STEPI TEST.*$gdb_prompt $" {
pass "$test_message"
}
-re "STEP INTO THIS CALL.*$gdb_prompt $" {
fail "$test_message (too far)"
}
}
# stepi backward over flat code (no calls)
set stepi_location [gdb_get_line_number "FINISH TEST" "$srcfile"]
set test_message "simple reverse stepi"
gdb_test_multiple "stepi" "$test_message" {
-re "STEPI TEST.*$gdb_prompt $" {
fail "$test_message (start statement)"
}
-re "$hex\[ \t\]*$stepi_location.* FINISH TEST.*$gdb_prompt $" {
send_gdb "stepi\n"
exp_continue
}
-re "$stepi_location.* FINISH TEST.*$gdb_prompt $" {
pass "$test_message"
}
-re "STEP INTO THIS CALL.*$gdb_prompt $" {
fail "$test_message (too far)"
}
}
# step backward into function (thru return)
gdb_test "step" "(RETURN FROM CALLEE|ARRIVED IN CALLEE).*" \
"reverse step into fn call"
# step backward out of called function (thru call)
set test_message "reverse step out of called fn"
gdb_test_multiple "step" "$test_message" {
-re "STEP INTO THIS CALL.*.*$gdb_prompt $" {
pass "$test_message"
}
-re "ARRIVED IN CALLEE.*$gdb_prompt $" {
send_gdb "step\n"
exp_continue
}
-re "ENTER CALLEE.*$gdb_prompt $" {
send_gdb "step\n"
exp_continue
}
}
# next backward over call
gdb_test "next" ".*NEXT OVER THIS CALL.*" "reverse next over call"
# step/next backward with count
gdb_test "step 3" ".*REVERSE STEP TEST 1.*" "reverse step test 1"
gdb_test "next 2" ".*REVERSE NEXT TEST 1.*" "reverse next test 1"
# step/next backward without count
gdb_test "step" ".*STEP TEST 1.*" "reverse step test 2"
gdb_test "next" ".*NEXT TEST 1.*" "reverse next test 2"
# Finish test by running forward to the end.
# FIXME return to this later...
# gdb_test_no_output "set exec-dir forward" "set forward execution"
# gdb_continue_to_end "step-reverse.exp"
|