1 # Copyright 2009-2024 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 require {!target_info exists gdb,nosignals}
18 require supports_reverse
20 standard_testfile sigall-reverse.c
21 set precsave [standard_output_file sigall.precsave]
23 if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
27 proc test_one_sig {nextsig} {
32 set this_sig_supported $sig_supported
33 gdb_test "handle SIG$thissig stop print" \
34 "SIG$thissig\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
35 gdb_test "b handle_$thissig" "Breakpoint \[0-9\]+ .*"
36 gdb_test "b gen_$nextsig" "Breakpoint \[0-9\]+ .*"
38 set need_another_continue 1
40 if {$this_sig_supported} {
41 if { $thissig == "IO" } {
42 setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
44 set testmsg "get signal $thissig"
45 gdb_test_multiple "continue" $testmsg {
46 -re "Program received signal SIG$thissig.*handle_$thissig.*$gdb_prompt $" {
47 fail "$testmsg (wrong location)"
49 -re "Program received signal SIG$thissig.*$gdb_prompt $" {
52 -re "Breakpoint.* handle_$thissig.*$gdb_prompt $" {
54 set need_another_continue 0
59 if {$need_another_continue} {
60 if { $thissig == "URG" } {
61 setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
63 # Either Lynx or GDB screws up on SIGPRIO
64 if { $thissig == "PRIO" } {
65 setup_xfail "*-*-*lynx*"
67 set testmsg "send signal $thissig"
68 gdb_test_multiple "continue" $testmsg {
69 -re "Breakpoint.*handle_$thissig.*$gdb_prompt $" {
72 -re "Breakpoint.*gen_$nextsig.*kill.*$gdb_prompt $" {
73 fail "missed breakpoint at handle_$thissig"
79 if {$missed_handler == "0"} {
80 set testmsg "advance to $nextsig"
81 gdb_test_multiple "signal 0" $testmsg {
82 -re "Breakpoint.*gen_$nextsig.*kill.*$gdb_prompt $" {
86 -re "Breakpoint.*gen_$nextsig.*handle.*$gdb_prompt $" {
95 proc test_one_sig_reverse {prevsig} {
98 gdb_test "reverse-continue" "Breakpoint .* handle_$prevsig.*" \
99 "reverse to handler of $prevsig"
102 set testmsg "reverse to gen_$prevsig"
103 gdb_test_multiple "reverse-continue" $testmsg {
104 -re "Breakpoint.*handle_.*$gdb_prompt " {
105 pass "$testmsg (un-handled)"
107 -re "Program received signal SIG$prevsig.*$gdb_prompt " {
108 pass "reverse to signal event, $prevsig"
110 set nested_testmsg "reverse signal $prevsig delivered"
111 gdb_test_multiple "frame" $nested_testmsg {
112 -re ".*handle_$prevsig.*$gdb_prompt " {
113 fail "$nested_testmsg (wrong location)"
115 -re ".*$gdb_prompt " {
121 send_gdb "reverse-continue\n"
124 -re "Breakpoint.*kill.*$gdb_prompt " {
126 pass "$testmsg (handled)"
128 xfail "$testmsg (handled)"
131 -re "No more reverse-execution history.*kill.*$gdb_prompt " {
133 pass "$testmsg (handled)"
135 xfail "$testmsg (handled)"
141 clean_restart $binfile
145 if [supports_process_record] {
146 # Activate process record/replay
147 gdb_test_no_output "record" "turn on process record"
150 # Run until end, then save execution log.
152 set breakloc [gdb_get_line_number "end of main" "$srcfile"]
153 gdb_test "break $breakloc" \
154 "Breakpoint $decimal at .*$srcfile, line $breakloc\." \
155 "breakpoint at end of main"
157 # Signal handlers must be disabled
158 gdb_test "handle all nostop noprint"
160 # The list of signals that the program generates, in the order they
236 # Software single-step targets can't step into signal handlers. Since
237 # later, when replaying the execution log, the test wants to set
238 # breakpoints on handlers, we need to make sure that while recording,
239 # GDB steps through the handlers too, so that the execution log covers
240 # them. Setting breakpoints in all handlers takes care of it. This
241 # is harmless for hardware-step targets.
242 foreach sig $signals {
243 set test "break *handle_$sig"
244 gdb_test_multiple $test $test {
245 -re "Breakpoint .*$gdb_prompt $" {
246 # No need to record a pass for each breakpoint.
251 gdb_test_multiple "continue" "run to end of main" {
252 -wrap -re "Breakpoint .* end of main .*" {
255 -wrap -re "Breakpoint .* handle_.*" {
256 send_gdb "continue\n"
259 -wrap -re "Process record does not support instruction 0xfae64 at.*" {
260 kfail "gdb/25038" $gdb_test_name
267 gdb_test "record save $precsave" \
268 "Saved core file $precsave with execution log\." \
269 "save process recfile"
271 gdb_test "kill" "" "kill process, prepare to debug log file" \
272 "Kill the program being debugged\\? \\(y or n\\) " "y"
274 gdb_test "record restore $precsave" \
275 "Restored records from core file .*" \
276 "reload precord save file"
278 # Signal handlers must be re-enabled
279 gdb_test "handle all stop print"
281 # Make the first signal SIGABRT because it is always supported.
285 # test signal handling
286 with_test_prefix "sig-test-1" {
287 foreach sig [lrange $signals 1 end] {
292 # The last signal (SIGTERM) gets handled slightly differently because
293 # we are not setting up for another test.
294 gdb_test "handle SIGTERM stop print" \
295 "SIGTERM\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
296 gdb_test "b handle_TERM" "Breakpoint \[0-9\]+ .*"
297 gdb_test "continue" \
298 "Continuing.*Program received signal SIGTERM.*" \
300 gdb_test "continue" "Breakpoint.*handle_TERM.*" "send signal TERM"
302 gdb_test "continue" " end of main .*" "continue to sigall exit"
304 foreach sig [lreverse $signals] {
305 test_one_sig_reverse $sig
308 # Make the first signal SIGABRT because it is always supported.
312 with_test_prefix "sig-test-2" {
313 foreach sig [lrange $signals 1 end] {