1 # Copyright 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <http://www.gnu.org/licenses/>. */
16 # This file is part of the GDB testsuite. It tests reverse stepping.
17 # Lots of code borrowed from "step-test.exp".
20 # reverse-next over a function call sets a step-resume breakpoint at
21 # callee's entry point, runs to it, and then does an extra single-step
22 # to get at the callee's caller. Test that a user breakpoint set at
23 # the same location as the step-resume breakpoint isn't ignored.
26 if ![supports_reverse] {
30 set testfile "next-reverse-bkpt-over-sr"
31 set srcfile step-reverse.c
33 if { [prepare_for_testing $testfile.exp $testfile $srcfile] } {
37 if ![runto_main] then {
38 fail "Can't run to main"
42 if [supports_process_record] {
43 # Activate process record/replay
44 gdb_test_no_output "record" "Turn on process record"
47 set lineno [gdb_get_line_number "STEP INTO THIS CALL"]
48 gdb_test "advance $lineno" ".*STEP INTO THIS CALL.*" "get past callee call"
50 gdb_test "b \*callee" "" "set breakpoint at callee's entry"
52 gdb_test "reverse-next" \
53 "Breakpoint.*, callee.*ENTER CALLEE.*" \
54 "reverse-next over call trips user breakpoint at function entry"
57 ".*NEXT OVER THIS CALL.*" \
58 "stopped at the right callee call"