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 'finish' with
19 if ![target_info exists gdb,can_reverse] {
23 set testfile "finish-reverse"
24 set srcfile ${testfile}.c
26 if { [prepare_for_testing $testfile.exp "$testfile" $srcfile] } {
32 if [target_info exists gdb,use_precord] {
33 # Activate process record/replay
34 gdb_test_no_output "record" "Turn on process record"
37 # Test finish from void func
39 set breakloc [gdb_get_line_number "VOID FUNC" "$srcfile"]
40 gdb_test "break void_func" \
41 "Breakpoint $decimal at .*/$srcfile, line $breakloc\." \
42 "set breakpoint on void_func"
43 gdb_continue_to_breakpoint "void_func" ".*/$srcfile:$breakloc.*"
45 set test_msg "finish from void_func"
46 gdb_test_multiple "finish" "$test_msg" {
47 -re " call to void_func .*$gdb_prompt $" {
51 -re " void_checkpoint .*$gdb_prompt $" {
56 # Test finish from char func
58 set breakloc [gdb_get_line_number "CHAR FUNC" "$srcfile"]
59 gdb_test "break char_func" \
60 "Breakpoint $decimal at .*/$srcfile, line $breakloc\." \
61 "set breakpoint on char_func"
62 gdb_continue_to_breakpoint "char_func" ".*/$srcfile:$breakloc.*"
64 set test_msg "finish from char_func"
65 gdb_test_multiple "finish" "$test_msg" {
66 -re " void_checkpoint .*$gdb_prompt $" {
70 -re " char_checkpoint .*$gdb_prompt $" {
75 # Test finish from short func
77 set breakloc [gdb_get_line_number "SHORT FUNC" "$srcfile"]
78 gdb_test "break short_func" \
79 "Breakpoint $decimal at .* line $breakloc\." \
80 "set breakpoint on short_func"
81 gdb_continue_to_breakpoint "short_func" ".*/$srcfile:$breakloc.*"
83 set test_msg "finish from short_func"
84 gdb_test_multiple "finish" "$test_msg" {
85 -re " char_checkpoint .*$gdb_prompt $" {
89 -re " short_checkpoint .*$gdb_prompt $" {
94 # Test finish from int func
96 set breakloc [gdb_get_line_number "INT FUNC" "$srcfile"]
97 gdb_test "break int_func" \
98 "Breakpoint $decimal at .* line $breakloc\." \
99 "set breakpoint on int_func"
100 gdb_continue_to_breakpoint "int_func" ".*/$srcfile:$breakloc.*"
102 set test_msg "finish from int_func"
103 gdb_test_multiple "finish" "$test_msg" {
104 -re " short_checkpoint .*$gdb_prompt $" {
108 -re " int_checkpoint .*$gdb_prompt $" {
113 # Test finish from long func
115 set breakloc [gdb_get_line_number "LONG FUNC" "$srcfile"]
116 gdb_test "break long_func" \
117 "Breakpoint $decimal at .* line $breakloc\." \
118 "set breakpoint on long_func"
119 gdb_continue_to_breakpoint "long_func" ".*/$srcfile:$breakloc.*"
121 set test_msg "finish from long_func"
122 gdb_test_multiple "finish" "$test_msg" {
123 -re " int_checkpoint .*$gdb_prompt $" {
127 -re " long_checkpoint .*$gdb_prompt $" {
132 # Test finish from long long func
134 set breakloc [gdb_get_line_number "LONG LONG FUNC" "$srcfile"]
135 gdb_test "break long_long_func" \
136 "Breakpoint $decimal at .* line $breakloc\." \
137 "set breakpoint on long_long_func"
138 gdb_continue_to_breakpoint "long_long_func" ".*/$srcfile:$breakloc.*"
140 set test_msg "finish from long_long_func"
141 gdb_test_multiple "finish" "$test_msg" {
142 -re " long_checkpoint .*$gdb_prompt $" {
146 -re " long_long_checkpoint .*$gdb_prompt $" {
156 # Now switch to reverse
157 gdb_test_no_output "set exec-dir reverse" "set reverse execution"
159 # Test reverse finish from long long func
161 set breakloc [gdb_get_line_number "LONG LONG FUNC" "$srcfile"]
162 gdb_continue_to_breakpoint "long_long_func" ".*/$srcfile:$breakloc.*"
164 set test_msg "reverse finish from long_long_func"
165 gdb_test_multiple "finish" "$test_msg" {
166 -re ".* long_checkpoint.*$gdb_prompt $" {
171 # Test reverse finish from long func
173 set breakloc [gdb_get_line_number "LONG FUNC" "$srcfile"]
174 gdb_continue_to_breakpoint "long_func" ".*/$srcfile:$breakloc.*"
176 set test_msg "reverse finish from long_func"
177 gdb_test_multiple "finish" "$test_msg" {
178 -re ".* int_checkpoint.*$gdb_prompt $" {
183 # Test reverse finish from int func
185 set breakloc [gdb_get_line_number "INT FUNC" "$srcfile"]
186 gdb_continue_to_breakpoint "int_func" ".*/$srcfile:$breakloc.*"
188 set test_msg "reverse finish from int_func"
189 gdb_test_multiple "finish" "$test_msg" {
190 -re ".* short_checkpoint.*$gdb_prompt $" {
195 # Test reverse finish from short func
197 set breakloc [gdb_get_line_number "SHORT FUNC" "$srcfile"]
198 gdb_continue_to_breakpoint "short_func" ".*/$srcfile:$breakloc.*"
200 set test_msg "reverse finish from short_func"
201 gdb_test_multiple "finish" "$test_msg" {
202 -re ".* char_checkpoint.*$gdb_prompt $" {
207 # Test reverse finish from char func
209 set breakloc [gdb_get_line_number "CHAR FUNC" "$srcfile"]
210 gdb_continue_to_breakpoint "char_func" ".*/$srcfile:$breakloc.*"
212 set test_msg "reverse finish from char_func"
213 gdb_test_multiple "finish" "$test_msg" {
214 -re ".* void_checkpoint.*$gdb_prompt $" {
219 # Test reverse finish from void func
221 set breakloc [gdb_get_line_number "VOID FUNC" "$srcfile"]
222 gdb_continue_to_breakpoint "void_func" ".*/$srcfile:$breakloc.*"
224 set test_msg "reverse finish from void_func"
225 gdb_test_multiple "finish" "$test_msg" {
226 -re ".* call to void_func.*$gdb_prompt $" {