1 # Copyright
2000-2023 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 was written by Michael Snyder
(msnyder@redhat.com
)
18 set allow_float_test
[allow_float_test
]
20 # re
-use the
program from the
"return2" test.
21 if { [prepare_for_testing
"failed to prepare" finish return2.c] } {
25 proc finish_1
{ type
} {
28 gdb_test
"break ${type}_func" "Breakpoint \[0123456789\].*" \
29 "set break on ${type}_func"
30 gdb_test
"continue" "Breakpoint.* ${type}_func.*" \
31 "continue to ${type}_func"
32 gdb_test_multiple
"finish" "finish from ${type}_func" {
33 -re
".*Value returned is .* = 49 '1'\r\n$gdb_prompt $" {
34 if { $type
== "char" } {
35 pass
"finish from char_func"
37 fail
"finish from ${type}_func"
40 -re
".*Value returned is .* = \[0123456789\]* '1'\r\n$gdb_prompt $" {
41 if { $type
== "char" } {
42 pass
"finish from char_func (non-ASCII char set?)"
44 fail
"finish from ${type}_func"
47 -re
".*Value returned is .* = 1\r\n$gdb_prompt $" {
48 pass
"finish from ${type}_func"
53 proc finish_void
{ } {
56 gdb_test
"break void_func" "Breakpoint \[0123456789\].*" \
57 "set break on void_func"
58 gdb_test
"continue" "Breakpoint.* void_func.*" \
59 "continue to void_func"
60 # Some architectures will have one or more instructions after the
61 #
call instruction which still is part of the
call sequence
, so we
62 # must be prepared
for a
"finish" to show us the void_func call
63 # again as well as the statement after.
64 gdb_test_multiple
"finish" "finish from void_func" {
65 -re
".*void_checkpoint.*$gdb_prompt $" {
66 pass
"finish from void_func"
68 -re
"0x\[0-9a-fA-F\]+ in main.*call to void_func.*$gdb_prompt $" {
69 pass
"finish from void_func"
74 # A function that tests that the given ABBREV is a working abbreviation
75 # of the
"finish" command.
77 proc finish_abbreviation
{ abbrev
} {
79 if {![runto
"int_func"]} {
84 "Value returned is .* = 1" \
85 "Testing the \"$abbrev\" abbreviation for \"finish\""
88 # Test
"set print finish off".
89 proc finish_no_print
{} {
92 if {![runto
"int_func"]} {
95 gdb_test_no_output
"set print finish off"
97 "Value returned is \\\$$decimal = <not displayed>"
98 gdb_test
"print \$" " = 1" \
99 "Ensure return value was properly saved"
102 proc finish_tests
{ } {
103 global gdb_prompt allow_float_test
115 if {$allow_float_test
} {
119 finish_abbreviation
"fin"
123 set prev_timeout $timeout
126 set timeout $prev_timeout