-# Copyright (C) 1995 Free Software Foundation, Inc.
+# Copyright 1995-2013 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 2 of the License, or
+# 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, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
+if [target_info exists gdb,nosignals] {
+ verbose "Skipping sigall.exp because of nosignals."
+ continue
}
-set prms_id 0
-set bug_id 0
+gdb_exit
+gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-set binfile $objdir/$subdir/sigall
-if ![file exists $binfile] then {
- perror "$binfile does not exist."
- return 0
+set testfile sigall
+set srcfile ${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+ untested sigall.exp
+ return -1
}
-# Make the first signal SIGABRT because it is always supported.
-set sig_supported 1
-set thissig "ABRT"
-
proc test_one_sig {nextsig} {
global sig_supported
- global prompt
+ 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\]"
+ "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 {
- if {"$thissig" == "POLL"} then {
- # If SIGIO and SIGPOLL are the same signal it gets reported
- # as SIGIO; it is a feature for GDB to always use the "preferred"
- # name (the POSIX name if there is one, etc.); I suspect that is
- # SIGIO in this case but I'm not sure.
- set pattern "(POLL|IO)"
- } else {
- set pattern $thissig
+ if { $thissig == "IO" } {
+ setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
}
gdb_test "continue" \
- "Continuing.*Program received signal SIG$pattern" \
+ "Continuing.*Program received signal SIG$thissig.*" \
"get signal $thissig"
}
- if {"$thissig" == "IO"} then {
- # SIGIO and SIGPOLL might be the same signal.
- # If so we end up at handle_POLL because we
- # establish the handler for SIGPOLL after SIGIO.
- set pattern "Breakpoint.*handle_(POLL|IO)"
- } else {
- set pattern "Breakpoint.*handle_$thissig"
- }
-
- # On the alpha we don't end up in handle_ABRT. I don't know why.
- if {"$thissig" != "ABRT" || ![istarget "*-*-osf*"]} then {
- gdb_test "continue" $pattern "send signal $thissig"
+ if [ istarget "alpha-dec-osf3*" ] then {
+ # OSF/1-3.x is unable to continue with a job control stop signal.
+ # The inferior remains stopped without an event of interest
+ # and GDB waits forever for the inferior to stop on an event
+ # of interest. Work around the kernel bug.
+ if { $thissig == "TSTP" || $thissig == "TTIN" || $thissig == "TTOU" } {
+ setup_xfail "alpha-dec-osf3*"
+ fail "cannot continue from signal $thissig"
+ set need_another_continue 0
+ }
}
- send "continue\n"
- expect {
- -re "Breakpoint.*gen_$nextsig.*kill.*$prompt $" {
- pass "advance to $nextsig"
- set sig_supported 1
+ if $need_another_continue then {
+ if { $thissig == "URG" } {
+ setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
}
- -re "Breakpoint.*gen_$nextsig.*handle.*$prompt $" {
- pass "advance to $nextsig"
- set sig_supported 0
+ # 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
+ }
}
- -re ".*$prompt $" { fail "advance to $nextsig" }
- default { fail "advance to $nextsig (eof or timeout)" }
+ }
+
+ 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
}
gdb_load $binfile
+# 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
-test_one_sig HUP
-test_one_sig QUIT
-test_one_sig ILL
-test_one_sig EMT
-test_one_sig FPE
-test_one_sig BUS
-test_one_sig SEGV
-test_one_sig SYS
-test_one_sig PIPE
-test_one_sig ALRM
-test_one_sig URG
-test_one_sig TSTP
-test_one_sig CONT
-test_one_sig CHLD
-test_one_sig TTIN
-test_one_sig TTOU
-test_one_sig IO
-
-# Set an extra breakpoint at handle_POLL, to deal with the fact that
-# SIGIO and SIGPOLL might be the same signal.
-
-gdb_test "b handle_POLL" "Breakpoint \[0-9\]" \
- "set extra handle_POLL breakpoint"
-
-test_one_sig XCPU
-test_one_sig XFSZ
-test_one_sig VTALRM
-test_one_sig PROF
-test_one_sig WINCH
-test_one_sig LOST
-test_one_sig USR1
-test_one_sig USR2
-test_one_sig PWR
-test_one_sig POLL
-test_one_sig WIND
-test_one_sig PHONE
-test_one_sig WAITING
-test_one_sig LWP
-test_one_sig DANGER
-test_one_sig GRANT
-test_one_sig RETRACT
-test_one_sig MSG
-test_one_sig SOUND
-test_one_sig SAK
-test_one_sig PRIO
-test_one_sig 33
-test_one_sig 34
-test_one_sig 35
-test_one_sig 36
-test_one_sig 37
-test_one_sig 38
-test_one_sig 39
-test_one_sig 40
-test_one_sig 41
-test_one_sig 42
-test_one_sig 43
-test_one_sig 44
-test_one_sig 45
-test_one_sig 46
-test_one_sig 47
-test_one_sig 48
-test_one_sig 49
-test_one_sig 50
-test_one_sig 51
-test_one_sig 52
-test_one_sig 53
-test_one_sig 54
-test_one_sig 55
-test_one_sig 56
-test_one_sig 57
-test_one_sig 58
-test_one_sig 59
-test_one_sig 60
-test_one_sig 61
-test_one_sig 62
-test_one_sig 63
-test_one_sig TERM
+
+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\]"
+ "SIGTERM\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
+gdb_test "b handle_TERM" "Breakpoint \[0-9\]+ .*"
gdb_test "continue" \
- "Continuing.*Program received signal SIGTERM" \
+ "Continuing.*Program received signal SIGTERM.*" \
"get signal TERM"
-gdb_test "continue" "Breakpoint.*handle_TERM" "send signal TERM"
-gdb_test "continue" "Program exited normally" "continue to sigall exit"
+gdb_test "continue" "Breakpoint.*handle_TERM.*" "send signal TERM"
+gdb_continue_to_end "continue to sigall exit"
return 0
projects / external / binutils.git / blobdiff