1# Copyright 2009-2015 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 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 28# functionality. 29# 30# PR c++/9600. 31 32# This test is largely based of gdb.base/callfuncs.exp. 33 34if { [skip_cplus_tests] } { continue } 35 36if [target_info exists gdb,nosignals] { 37 verbose "Skipping gdb2495.exp because of nosignals." 38 continue 39} 40 41# On SPU this test fails because the executable exceeds local storage size. 42if { [istarget "spu*-*-*"] } { 43 return 0 44} 45 46standard_testfile .cc 47 48# Create and source the file that provides information about the compiler 49# used to compile the test case. 50if [get_compiler_info "c++"] { 51 return -1 52} 53 54# Some targets can't do function calls, so don't even bother with this 55# test. 56if [target_info exists gdb,cannot_call_functions] { 57 setup_xfail "*-*-*" 2416 58 fail "This target can not call functions" 59 continue 60} 61 62if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug c++}]} { 63 return -1 64} 65 66if ![runto_main] then { 67 perror "couldn't run to main" 68 continue 69} 70 71# See http://sourceware.org/gdb/bugs/2495 72 73# Test normal baseline behaviour. Call a function that 74# does not raise an exception. 75gdb_test "p exceptions.no_throw_function()" " = 1" 76# And one that does but handles it in-frame. 77gdb_test "p exceptions.throw_function_with_handler()" " = 2" 78# Both should return normally. 79 80# Test basic unwind. Call a function that raises an exception but 81# does not handle it. It should be rewound. 82gdb_test "p exceptions.throw_function()" \ 83 "The program being debugged entered a std::terminate call, .*" \ 84 "Call a function that raises an exception without a handler." 85 86# Make sure that after rewinding we are back at the call parent. 87gdb_test "bt" \ 88 "#0 main.*" \ 89 "bt after returning from a popped frame" 90 91# Make sure the only breakpoint is the one set via the runto_main 92# call and that the std::terminate breakpoint has evaporated and 93# cleaned-up. 94gdb_test "info breakpoints" \ 95 "gdb2495\.cc.*" 96 97# Turn off this new behaviour. 98gdb_test_multiple "set unwind-on-terminating-exception off" \ 99 "Turn unwind-on-terminating-exception off" { 100 -re "$gdb_prompt $" {pass "set unwinn-on-terminating-exception off"} 101 timeout {fail "(timeout) set unwind-on-terminating-exception off"} 102} 103 104# Check that it is turned off. 105gdb_test "show unwind-on-terminating-exception" \ 106 "exception is unhandled while in a call dummy is off.*" \ 107 "Turn off unwind on terminating exception flag" 108 109# Check that the old behaviour is restored. 110gdb_test "p exceptions.throw_function()" \ 111 "The program being debugged was signaled while in a function called .*" \ 112 "Call a function that raises an exception with unwinding off.." 113 114# Restart the inferior back at main. 115if ![runto_main] then { 116 perror "couldn't run to main" 117 continue 118} 119 120 121# Check to see if the new behaviour alters the unwind signal 122# behaviour; it should not. Test both on and off states. 123 124# Turn on unwind on signal behaviour. 125gdb_test_multiple "set unwindonsignal on" "Turn unwindonsignal on" { 126 -re "$gdb_prompt $" {pass "set unwindonsignal on"} 127 timeout {fail "(timeout) set unwindonsignal on"} 128} 129 130# Check that it is turned on. 131gdb_test "show unwindonsignal" \ 132 "signal is received while in a call dummy is on.*" \ 133 "Turn on unwind on signal" 134 135# Check to see if new behaviour interferes with 136# normal signal handling in inferior function calls. 137gdb_test "p exceptions.raise_signal(1)" \ 138 "To change this behavior use \"set unwindonsignal off\".*" 139 140# And reverse - turn off again. 141gdb_test_multiple "set unwindonsignal off" "Turn unwindonsignal off" { 142 -re "$gdb_prompt $" {pass "set unwindonsignal off"} 143 timeout {fail "(timeout) set unwindonsignal off"} 144} 145 146# Check that it is actually turned off. 147gdb_test "show unwindonsignal" \ 148 "signal is received while in a call dummy is off.*" \ 149 "Turn off unwind on signal" 150 151# Check to see if new behaviour interferes with 152# normal signal handling in inferior function calls. 153gdb_test "p exceptions.raise_signal(1)" \ 154 "To change this behavior use \"set unwindonsignal on\".*" 155