gdb/testsuite/gdb.base/sigall.exp

   1 #   Copyright 1995-1997, 1999, 2007-2012 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 if [target_info exists gdb,nosignals] {
  17     verbose "Skipping sigall.exp because of nosignals."
  18     continue
  19 }
  20
  21
  22 gdb_exit
  23 gdb_start
  24 gdb_reinitialize_dir $srcdir/$subdir
  25
  26 set testfile sigall
  27 set srcfile ${testfile}.c
  28 set binfile ${objdir}/${subdir}/${testfile}
  29 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
  30      untested sigall.exp
  31      return -1
  32 }
  33
  34 # Make the first signal SIGABRT because it is always supported.
  35 set sig_supported 1
  36 set thissig "ABRT"
  37
  38 proc test_one_sig {nextsig} {
  39     global sig_supported
  40     global gdb_prompt
  41     global thissig
  42
  43     set this_sig_supported $sig_supported
  44     gdb_test "handle SIG$thissig stop print" \
  45         "SIG$thissig\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
  46     gdb_test "b handle_$thissig" "Breakpoint \[0-9\]+ .*"
  47     gdb_test "b gen_$nextsig" "Breakpoint \[0-9\]+ .*"
  48
  49     set need_another_continue 1
  50     set missed_handler 0
  51     if $this_sig_supported then {
  52         if { $thissig == "IO" } {
  53             setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
  54         }
  55         gdb_test "continue" \
  56             "Continuing.*Program received signal SIG$thissig.*" \
  57             "get signal $thissig"
  58     }
  59     if [ istarget "alpha-dec-osf3*" ] then {
  60         # OSF/1-3.x is unable to continue with a job control stop signal.
  61         # The inferior remains stopped without an event of interest
  62         # and GDB waits forever for the inferior to stop on an event
  63         # of interest. Work around the kernel bug.
  64         if { $thissig == "TSTP" || $thissig == "TTIN" || $thissig == "TTOU" } {
  65             setup_xfail "alpha-dec-osf3*"
  66             fail "cannot continue from signal $thissig"
  67             set need_another_continue 0
  68         }
  69     }
  70
  71     if $need_another_continue then {
  72         if { $thissig == "URG" } {
  73             setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
  74         }
  75         # Either Lynx or GDB screws up on SIGPRIO
  76         if { $thissig == "PRIO" } {
  77             setup_xfail "*-*-*lynx*"
  78         }
  79         gdb_test_multiple "continue" "send signal $thissig" {
  80             -re "Breakpoint.*handle_$thissig.*$gdb_prompt $" {
  81                 pass "send signal $thissig"
  82             }
  83             -re "Breakpoint.*gen_$nextsig.*kill.*$gdb_prompt $" {
  84                 fail "missed breakpoint at handle_$thissig"
  85                 set missed_handler 1
  86             }
  87         }
  88     }
  89
  90     if { $missed_handler == "0" } then {
  91         gdb_test_multiple "signal 0" "advance to $nextsig" {
  92             -re "Breakpoint.*gen_$nextsig.*\r\n\[0-9\]+\[ \t\]+kill \\(.*\r\n$gdb_prompt $" {
  93                 pass "advance to $nextsig"
  94                 set sig_supported 1
  95             }
  96             -re "Breakpoint.*gen_$nextsig.*\r\n\[0-9\]+\[ \t\]+handle_.*\r\n$gdb_prompt $" {
  97                 pass "advance to $nextsig"
  98                 set sig_supported 0
  99             }
 100         }
 101     }
 102     set thissig $nextsig
 103 }
 104
 105 gdb_load $binfile
 106
 107 runto gen_ABRT
 108 test_one_sig HUP
 109 test_one_sig QUIT
 110 test_one_sig ILL
 111 test_one_sig EMT
 112 test_one_sig FPE
 113 test_one_sig BUS
 114 test_one_sig SEGV
 115 test_one_sig SYS
 116 test_one_sig PIPE
 117 test_one_sig ALRM
 118 test_one_sig URG
 119 test_one_sig TSTP
 120 test_one_sig CONT
 121 test_one_sig CHLD
 122 test_one_sig TTIN
 123 test_one_sig TTOU
 124 test_one_sig IO
 125 test_one_sig XCPU
 126 test_one_sig XFSZ
 127 test_one_sig VTALRM
 128 test_one_sig PROF
 129 test_one_sig WINCH
 130 test_one_sig LOST
 131 test_one_sig USR1
 132 test_one_sig USR2
 133 test_one_sig PWR
 134 test_one_sig POLL
 135 test_one_sig WIND
 136 test_one_sig PHONE
 137 test_one_sig WAITING
 138 test_one_sig LWP
 139 test_one_sig DANGER
 140 test_one_sig GRANT
 141 test_one_sig RETRACT
 142 test_one_sig MSG
 143 test_one_sig SOUND
 144 test_one_sig SAK
 145 test_one_sig PRIO
 146 test_one_sig 33
 147 test_one_sig 34
 148 test_one_sig 35
 149 test_one_sig 36
 150 test_one_sig 37
 151 test_one_sig 38
 152 test_one_sig 39
 153 test_one_sig 40
 154 test_one_sig 41
 155 test_one_sig 42
 156 test_one_sig 43
 157 test_one_sig 44
 158 test_one_sig 45
 159 test_one_sig 46
 160 test_one_sig 47
 161 test_one_sig 48
 162 test_one_sig 49
 163 test_one_sig 50
 164 test_one_sig 51
 165 test_one_sig 52
 166 test_one_sig 53
 167 test_one_sig 54
 168 test_one_sig 55
 169 test_one_sig 56
 170 test_one_sig 57
 171 test_one_sig 58
 172 test_one_sig 59
 173 test_one_sig 60
 174 test_one_sig 61
 175 test_one_sig 62
 176 test_one_sig 63
 177 test_one_sig TERM
 178
 179 # The last signal (SIGTERM) gets handled slightly differently because
 180 # we are not setting up for another test.
 181 gdb_test "handle SIGTERM stop print" \
 182     "SIGTERM\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
 183 gdb_test "b handle_TERM" "Breakpoint \[0-9\]+ .*"
 184 gdb_test "continue" \
 185     "Continuing.*Program received signal SIGTERM.*" \
 186     "get signal TERM"
 187 gdb_test "continue" "Breakpoint.*handle_TERM.*" "send signal TERM"
 188 gdb_continue_to_end "continue to sigall exit"
 189
 190 return 0