1 # Copyright
2009-2022 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
/>.
17 # In gdb inferior function calls
, if a C
++ exception is raised in the
18 # dummy
-frame
, and the exception handler is
(normally
, and expected to
19 # be
) out
-of
-frame
, the default C
++ handler will
(wrongly
) be called
20 # in an inferior function
call.
21 # This is incorrect as an exception can normally and legally be handled
22 # out
-of
-frame. The confines of the dummy frame prevent the unwinder
23 # from finding the correct handler
(or
any handler
, unless it is
24 # in
-frame
). The default handler calls std
::terminate. This will kill
25 # the inferior. Assert that terminate should never be called in an
26 # inferior function
call. These tests test the functionality around
27 # unwinding that sequence and also tests the flag behaviour gating this
32 # This test is largely based of gdb.base
/callfuncs.exp.
34 if { [skip_cplus_tests
] } { return }
36 if [target_info
exists gdb
,nosignals
] {
37 verbose
"Skipping gdb2495.exp because of nosignals."
43 # Create and source the file that provides information about the compiler
44 # used to
compile the test case.
45 if [get_compiler_info
"c++"] {
49 # Some targets can
't do function calls, so don't even bother with this
51 if [target_info
exists gdb
,cannot_call_functions
] {
52 unsupported
"this target can not call functions"
56 if {[prepare_for_testing
"failed to prepare" $testfile $srcfile {debug c++}]} {
60 if ![runto_main
] then {
61 perror
"couldn't run to main"
65 # See http
://sourceware.org
/gdb
/bugs
/2495
67 # Test
normal baseline behaviour.
Call a function that
68 # does not raise an exception.
69 gdb_test
"p exceptions.no_throw_function()" " = 1"
70 # And one that does but handles it in
-frame.
71 gdb_test
"p exceptions.throw_function_with_handler()" " = 2"
72 # Both should
return normally.
74 # Test basic unwind.
Call a function that raises an exception but
75 # does not handle it. It should be rewound.
76 gdb_test
"p exceptions.throw_function()" \
77 "The program being debugged entered a std::terminate call, .*" \
78 "call a function that raises an exception without a handler."
80 # Make sure that after rewinding we are
back at the
call parent.
83 "bt after returning from a popped frame"
85 # Make sure the only breakpoint is the one
set via the runto_main
86 #
call and that the std
::terminate breakpoint has evaporated and
88 gdb_test
"info breakpoints" \
91 # Turn
off this new behaviour.
92 gdb_test_no_output
"set unwind-on-terminating-exception off"
94 # Check that it is turned
off.
95 gdb_test
"show unwind-on-terminating-exception" \
96 "exception is unhandled while in a call dummy is off.*" \
97 "turn off unwind on terminating exception flag"
99 # Check that the old behaviour is restored.
100 gdb_test
"p exceptions.throw_function()" \
101 "The program being debugged was signaled while in a function called .*" \
102 "call a function that raises an exception with unwinding off.."
104 # Restart the inferior
back at main.
105 if ![runto_main
] then {
106 perror
"couldn't run to main"
111 # Check to see
if the new behaviour alters the unwind
signal
112 # behaviour
; it should not. Test both
on and
off states.
114 # Turn
on unwind
on signal behaviour.
115 gdb_test_no_output
"set unwindonsignal on"
117 # Check that it is turned
on.
118 gdb_test
"show unwindonsignal" \
119 "signal is received while in a call dummy is on.*" \
120 "turn on unwind on signal"
122 # Check to see
if new behaviour interferes with
123 #
normal signal handling in inferior function calls.
124 gdb_test
"p exceptions.raise_signal(1)" \
125 "To change this behavior use \"set unwindonsignal off\".*" \
126 "check for unwindonsignal off message"
128 # And reverse
- turn
off again.
129 gdb_test_no_output
"set unwindonsignal off"
131 # Check that it is actually turned
off.
132 gdb_test
"show unwindonsignal" \
133 "signal is received while in a call dummy is off.*" \
134 "turn off unwind on signal"
136 # Check to see
if new behaviour interferes with
137 #
normal signal handling in inferior function calls.
138 gdb_test
"p exceptions.raise_signal(1)" \
139 "To change this behavior use \"set unwindonsignal on\".*" \
140 "check for unwindonsignal on message"