1#   Copyright 2008-2013 Free Software Foundation, Inc.
2
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.
7#
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.
12#
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/>.
15
16# This file is part of the GDB testsuite.  It tests stepping over
17# consecutive instructions in reverse.
18
19if ![supports_reverse] {
20    return
21}
22
23standard_testfile
24
25if { [prepare_for_testing $testfile.exp $testfile $srcfile] } {
26    return -1
27}
28
29runto main
30
31if [supports_process_record] {
32    # Activate process record/replay
33    gdb_test_no_output "record" "Turn on process record"
34}
35
36gdb_breakpoint foo
37gdb_test "continue" "Breakpoint $decimal, foo .*" \
38	"continue to breakpoint in foo"
39
40set foo1_addr 0
41set foo2_addr 0
42set stop_addr 0
43
44gdb_test_multiple "x /2i \$pc" "get breakpoint address for foo" {
45    global hex
46    global foo1_addr
47    global foo2_addr
48    global gdb_prompt
49
50    -re "=> ($hex).*\[\r\n\]+   ($hex).*$gdb_prompt $" {
51	set foo1_addr $expect_out(1,string)
52	set foo2_addr $expect_out(2,string)
53	pass "get breakpoint address for foo"
54    }
55}
56
57gdb_test "break \*$foo2_addr" "Breakpoint $decimal at $foo2_addr: file .*" \
58	"set bp, 2nd instr"
59
60set testmsg "stopped at bp, 2nd instr"
61gdb_test_multiple "step" $testmsg {
62    -re "Breakpoint $decimal, ($hex) in foo.*$gdb_prompt $" {
63	set stop_addr $expect_out(1,string)
64	if [eval expr "$foo2_addr == $stop_addr"] then {
65	    pass "stopped at bp, 2nd instr"
66	} else {
67	    fail "stopped at bp, 2nd instr (wrong address)"
68	}
69    }
70}
71
72###
73###
74###
75
76# Set reverse execution direction
77
78gdb_test_no_output "set exec-dir reverse" "set reverse execution"
79
80# Now step backward and hope to hit the first breakpoint.
81
82set test_msg "stopped at bp in reverse, 1st instr"
83gdb_test_multiple "step" "$test_msg" {
84    -re "Breakpoint $decimal, ($hex) in foo.*$gdb_prompt $" {
85	set stop_addr $expect_out(1,string)
86	if [eval expr "$foo1_addr == $stop_addr"] then {
87	    pass "$test_msg"
88	} else {
89	    fail "$test_msg (wrong address)"
90	}
91    }
92    -re "Breakpoint $decimal, foo.*$gdb_prompt $" {
93	gdb_test "print \$pc == $foo1_addr" \
94	    "$decimal = 1" \
95	    "$test_msg"
96    }
97}
98