forked from Imagelibrary/binutils-gdb
cdd4206647
Many test cases had a few lines in the beginning that look like:
if { condition } {
continue
}
Where conditions varied, but were mostly in the form of ![runto_main] or
[skip_*_tests], making it quite clear that this code block was supposed
to finish the test if it entered the code block. This generates TCL
errors, as most of these tests are not inside loops. All cases on which
this was an obvious mistake are changed in this patch.
189 lines
4.0 KiB
Plaintext
189 lines
4.0 KiB
Plaintext
# Copyright 1995-2022 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/>.
|
|
|
|
if [target_info exists gdb,nosignals] {
|
|
verbose "Skipping sigall.exp because of nosignals."
|
|
return
|
|
}
|
|
|
|
standard_testfile
|
|
|
|
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
|
|
return -1
|
|
}
|
|
|
|
proc test_one_sig {nextsig} {
|
|
global sig_supported
|
|
global gdb_prompt
|
|
global thissig
|
|
|
|
set this_sig_supported $sig_supported
|
|
gdb_test "handle SIG$thissig stop print" \
|
|
"SIG$thissig\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
|
|
gdb_test "b handle_$thissig" "Breakpoint \[0-9\]+ .*"
|
|
gdb_test "b gen_$nextsig" "Breakpoint \[0-9\]+ .*"
|
|
|
|
set need_another_continue 1
|
|
set missed_handler 0
|
|
if $this_sig_supported then {
|
|
set esig $thissig
|
|
|
|
if { $thissig == "IO" } {
|
|
setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
|
|
}
|
|
# On Linux SPARC64 systems SIGLOST==SIGPWR and gdb identifies
|
|
# the raised signal as PWR.
|
|
if { $thissig == "LOST" && [ istarget "sparc64-*-linux*" ] } then {
|
|
set esig "PWR"
|
|
}
|
|
|
|
gdb_test "continue" \
|
|
"Continuing.*Program received signal SIG$esig.*" \
|
|
"get signal $esig"
|
|
}
|
|
|
|
if $need_another_continue then {
|
|
if { $thissig == "URG" } {
|
|
setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
|
|
}
|
|
# Either Lynx or GDB screws up on SIGPRIO
|
|
if { $thissig == "PRIO" } {
|
|
setup_xfail "*-*-*lynx*"
|
|
}
|
|
gdb_test_multiple "continue" "send signal $thissig" {
|
|
-re "Breakpoint.*handle_$thissig.*$gdb_prompt $" {
|
|
pass "send signal $thissig"
|
|
}
|
|
-re "Breakpoint.*gen_$nextsig.*kill.*$gdb_prompt $" {
|
|
fail "missed breakpoint at handle_$thissig"
|
|
set missed_handler 1
|
|
}
|
|
}
|
|
}
|
|
|
|
if { $missed_handler == "0" } then {
|
|
gdb_test_multiple "signal 0" "advance to $nextsig" {
|
|
-re "Breakpoint.*gen_$nextsig.*\r\n\[0-9\]+\[ \t\]+kill \\(.*\r\n$gdb_prompt $" {
|
|
pass "advance to $nextsig"
|
|
set sig_supported 1
|
|
}
|
|
-re "Breakpoint.*gen_$nextsig.*\r\n\[0-9\]+\[ \t\]+handle_.*\r\n$gdb_prompt $" {
|
|
pass "advance to $nextsig"
|
|
set sig_supported 0
|
|
}
|
|
}
|
|
}
|
|
set thissig $nextsig
|
|
}
|
|
|
|
# The list of signals that the program generates, in the order they
|
|
# are generated.
|
|
set signals {
|
|
ABRT
|
|
HUP
|
|
QUIT
|
|
ILL
|
|
EMT
|
|
FPE
|
|
BUS
|
|
SEGV
|
|
SYS
|
|
PIPE
|
|
ALRM
|
|
URG
|
|
TSTP
|
|
CONT
|
|
CHLD
|
|
TTIN
|
|
TTOU
|
|
IO
|
|
XCPU
|
|
XFSZ
|
|
VTALRM
|
|
PROF
|
|
WINCH
|
|
LOST
|
|
USR1
|
|
USR2
|
|
PWR
|
|
POLL
|
|
WIND
|
|
PHONE
|
|
WAITING
|
|
LWP
|
|
DANGER
|
|
GRANT
|
|
RETRACT
|
|
MSG
|
|
SOUND
|
|
SAK
|
|
PRIO
|
|
33
|
|
34
|
|
35
|
|
36
|
|
37
|
|
38
|
|
39
|
|
40
|
|
41
|
|
42
|
|
43
|
|
44
|
|
45
|
|
46
|
|
47
|
|
48
|
|
49
|
|
50
|
|
51
|
|
52
|
|
53
|
|
54
|
|
55
|
|
56
|
|
57
|
|
58
|
|
59
|
|
60
|
|
61
|
|
62
|
|
63
|
|
TERM
|
|
}
|
|
|
|
# Make the first signal SIGABRT because it is always supported.
|
|
set sig_supported 1
|
|
set thissig "ABRT"
|
|
|
|
runto gen_ABRT
|
|
|
|
foreach sig [lrange $signals 1 end] {
|
|
test_one_sig $sig
|
|
}
|
|
|
|
# The last signal (SIGTERM) gets handled slightly differently because
|
|
# we are not setting up for another test.
|
|
gdb_test "handle SIGTERM stop print" \
|
|
"SIGTERM\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
|
|
gdb_test "b handle_TERM" "Breakpoint \[0-9\]+ .*"
|
|
gdb_test "continue" \
|
|
"Continuing.*Program received signal SIGTERM.*" \
|
|
"get signal TERM"
|
|
gdb_test "continue" "Breakpoint.*handle_TERM.*" "send signal TERM"
|
|
gdb_continue_to_end "continue to sigall exit"
|
|
|
|
return 0
|