mirror of
https://github.com/bminor/binutils-gdb.git
synced 2025-11-16 12:34:43 +00:00
ac51afb51c
Eli mentioned [1] that given that we use US English spelling in our documentation, we should use "behavior" instead of "behaviour". In wikipedia-common-misspellings.txt there's a rule: ... behavour->behavior, behaviour ... which leaves this as a choice. Add an overriding rule to hardcode the choice to common-misspellings.txt: ... behavour->behavior ... and add a rule to rewrite behaviour into behavior: ... behaviour->behavior ... and re-run spellcheck.sh on gdb*. Tested on x86_64-linux. [1] https://sourceware.org/pipermail/gdb-patches/2024-November/213371.html
122 lines
5.1 KiB
Plaintext
122 lines
5.1 KiB
Plaintext
# Copyright (C) 2023-2024 Free Software Foundation, Inc.
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
# Check that when GDB fails to evaluate the condition of a conditional
|
|
# breakpoint we only get one *stopped notification. In this test case
|
|
# the breakpoint condition fails due to throwing an uncaught C++
|
|
# excpetion.
|
|
|
|
require allow_cplus_tests
|
|
|
|
load_lib mi-support.exp
|
|
set MIFLAGS "-i=mi"
|
|
|
|
standard_testfile .cc
|
|
|
|
if [build_executable ${testfile}.exp ${binfile} ${srcfile} {debug c++}] {
|
|
return -1
|
|
}
|
|
|
|
# Create a breakpoint with a condition that invokes an inferior
|
|
# function call, that will segfault. Run until GDB hits the
|
|
# breakpoint and check how GDB reports the failed condition check.
|
|
#
|
|
# UNWIND_ON_EXCEPTION is either 'on' or 'off'. This is used to configure
|
|
# GDB's 'set unwind-on-terminating-exception' setting.
|
|
|
|
proc run_test { unwind_on_exception } {
|
|
|
|
if {[mi_clean_restart $::binfile]} {
|
|
return
|
|
}
|
|
|
|
if {[mi_runto_main] == -1} {
|
|
return
|
|
}
|
|
|
|
mi_gdb_test "-gdb-set unwind-on-terminating-exception ${unwind_on_exception}" {\^done} \
|
|
"set unwind-on-terminating-exception"
|
|
|
|
# Create the conditional breakpoint.
|
|
set bp_location [gdb_get_line_number "Set breakpoint here"]
|
|
mi_create_breakpoint "-c \"cond_throw ()\" $::srcfile:$bp_location" \
|
|
"insert conditional breakpoint" \
|
|
-func "foo\\(\\)" -file ".*$::srcfile" -line "$bp_location" \
|
|
-cond "cond_throw \\(\\)"
|
|
|
|
# Number of the previous breakpoint.
|
|
set bpnum [mi_get_valueof "/d" "\$bpnum" "INVALID" \
|
|
"get number for breakpoint"]
|
|
|
|
# The line where we expect the inferior to crash.
|
|
set crash_linenum 0
|
|
#[gdb_get_line_number "Crash here"]
|
|
|
|
# Run the inferior and wait for it to stop.
|
|
mi_send_resuming_command "exec-continue" "continue the inferior"
|
|
|
|
if {$unwind_on_exception} {
|
|
mi_gdb_test "" \
|
|
[multi_line \
|
|
"&\"Error in testing condition for breakpoint $bpnum:\\\\n\"" \
|
|
"&\"The program being debugged entered a std::terminate call, most likely\\\\n\"" \
|
|
"&\"caused by an unhandled C\\+\\+ exception. GDB blocked this call in order\\\\n\"" \
|
|
"&\"to prevent the program from being terminated, and has restored the\\\\n\"" \
|
|
"&\"context to its original state before the call.\\\\n\"" \
|
|
"&\"To change this behavior use \\\\\"set unwind-on-terminating-exception off\\\\\"\\.\\\\n\"" \
|
|
"&\"Evaluation of the expression containing the function \\(cond_throw\\(\\)\\)\\\\n\"" \
|
|
"&\"will be abandoned.\\\\n\"" \
|
|
"=breakpoint-modified,bkpt={number=\"$bpnum\",type=\"breakpoint\",\[^\r\n\]+times=\"1\",\[^\r\n\]+}" \
|
|
"~\"\\\\n\"" \
|
|
"~\"Breakpoint $bpnum, foo \\(\\) at \[^\r\n\]+/${::srcfile}:${bp_location}\\\\n\"" \
|
|
"~\"${bp_location}\\\\t\[^\r\n\]+Set breakpoint here\\.\[^\r\n\]+\\\\n\"" \
|
|
"\\*stopped,reason=\"breakpoint-hit\",disp=\"keep\",bkptno=\"$bpnum\",frame=\\{addr=\"$::hex\",func=\"foo\"\\,args=\\\[\\\],file=\"\[^\r\n\]+\",fullname=\"\[^\r\n\]+\",line=\"$bp_location\",\[^\r\n\]+}\[^\r\n\]+"] \
|
|
"wait for stop"
|
|
|
|
mi_info_frame "check the current frame" \
|
|
-level 0 -func foo -line $bp_location
|
|
} else {
|
|
# This pattern matches multiple lines being sent to MI's
|
|
# stdout stream (that is wrapped in ~"..."). Depending on
|
|
# where exactly the thread stops, and which debug info is
|
|
# available, the following stop will produce different numbers
|
|
# of lines.
|
|
set out_ln_re "(?:\r\n\[~&\]\"\[^\r\n\]+\")*"
|
|
|
|
mi_gdb_test "" \
|
|
[multi_line \
|
|
".*~\"\\\\nProgram\"" \
|
|
"~\" received signal SIGABRT, Aborted\\.\\\\n\"${out_ln_re}" \
|
|
"\\*stopped,reason=\"signal-received\",signal-name=\"SIGABRT\"\[^\r\n\]+frame=\\{addr=\"$::hex\",\[^\r\n\]+\\}\[^\r\n\]+" \
|
|
"&\"Error in testing condition for breakpoint $bpnum:\\\\n\"" \
|
|
"&\"The program being debugged was signaled while in a function called from GDB\\.\\\\n\"" \
|
|
"&\"GDB remains in the frame where the signal was received\\.\\\\n\"" \
|
|
"&\"To change this behavior use \\\\\"set unwind-on-signal on\\\\\"\\.\\\\n\"" \
|
|
"&\"Evaluation of the expression containing the function\\\\n\"" \
|
|
"&\"\\(cond_throw\\(\\)\\) will be abandoned\\.\\\\n\"" \
|
|
"&\"When the function is done executing, GDB will silently stop\\.\\\\n\"" \
|
|
"=breakpoint-modified,bkpt={number=\"$bpnum\",type=\"breakpoint\",\[^\r\n\]+times=\"1\",\[^\r\n\]+}"] \
|
|
"wait for stop"
|
|
|
|
# Don't try to check the current frame here, the inferior will
|
|
# be stopped somewhere in the C++ runtime at the point where
|
|
# it is determined that the exception has not been handled.
|
|
}
|
|
}
|
|
|
|
foreach_with_prefix unwind_on_exception { off } {
|
|
run_test $unwind_on_exception
|
|
}
|