gdb/testsuite/gdb.reverse/sigall-reverse.exp

   1 #   Copyright 2009-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-reverse.exp because of nosignals."
  18     return
  19 }
  20
  21 if ![supports_reverse] {
  22     return
  23 }
  24
  25
  26 gdb_exit
  27 gdb_start
  28 gdb_reinitialize_dir $srcdir/$subdir
  29
  30 set testfile sigall-reverse
  31 set srcfile ${testfile}.c
  32 set binfile ${objdir}/${subdir}/${testfile}
  33 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
  34      untested ${testfile}.exp
  35      return -1
  36 }
  37
  38 # Make the first signal SIGABRT because it is always supported.
  39 set sig_supported 1
  40 set thissig "ABRT"
  41
  42 proc test_one_sig {nextsig} {
  43     global sig_supported
  44     global gdb_prompt
  45     global thissig
  46
  47     set this_sig_supported $sig_supported
  48     gdb_test "handle SIG$thissig stop print" \
  49         "SIG$thissig\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
  50     gdb_test "b handle_$thissig" "Breakpoint \[0-9\]+ .*"
  51     gdb_test "b gen_$nextsig" "Breakpoint \[0-9\]+ .*"
  52
  53     set need_another_continue 1
  54     set missed_handler 0
  55     if $this_sig_supported then {
  56         if { $thissig == "IO" } {
  57             setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
  58         }
  59         set testmsg "get signal $thissig"
  60         gdb_test_multiple "continue" $testmsg {
  61             -re "Program received signal SIG$thissig.*handle_$thissig.*$gdb_prompt $" {
  62                 fail "$testmsg (wrong location)"
  63             }
  64             -re "Program received signal SIG$thissig.*$gdb_prompt $" {
  65                 pass $testmsg
  66             }
  67             -re "Breakpoint.* handle_$thissig.*$gdb_prompt $" {
  68                 xfail $testmsg
  69                 set need_another_continue 0
  70             }
  71         }
  72     }
  73     if [ istarget "alpha-dec-osf3*" ] then {
  74         # OSF/1-3.x is unable to continue with a job control stop signal.
  75         # The inferior remains stopped without an event of interest
  76         # and GDB waits forever for the inferior to stop on an event
  77         # of interest. Work around the kernel bug.
  78         if { $thissig == "TSTP" || $thissig == "TTIN" || $thissig == "TTOU" } {
  79             setup_xfail "alpha-dec-osf3*"
  80             fail "cannot continue from signal $thissig"
  81             set need_another_continue 0
  82         }
  83     }
  84
  85     if $need_another_continue then {
  86         if { $thissig == "URG" } {
  87             setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
  88         }
  89         # Either Lynx or GDB screws up on SIGPRIO
  90         if { $thissig == "PRIO" } {
  91             setup_xfail "*-*-*lynx*"
  92         }
  93         set testmsg "send signal $thissig"
  94         gdb_test_multiple "continue" $testmsg {
  95             -re "Breakpoint.*handle_$thissig.*$gdb_prompt $" {
  96                 pass $testmsg
  97             }
  98             -re "Breakpoint.*gen_$nextsig.*kill.*$gdb_prompt $" {
  99                 fail "missed breakpoint at handle_$thissig"
 100                 set missed_handler 1
 101             }
 102         }
 103     }
 104
 105     if { $missed_handler == "0" } then {
 106         set testmsg "advance to $nextsig"
 107         gdb_test_multiple "signal 0" $testmsg {
 108             -re "Breakpoint.*gen_$nextsig.*kill.*$gdb_prompt $" {
 109                 pass $testmsg
 110                 set sig_supported 1
 111             }
 112             -re "Breakpoint.*gen_$nextsig.*handle.*$gdb_prompt $" {
 113                 pass $testmsg
 114                 set sig_supported 0
 115             }
 116         }
 117     }
 118     set thissig $nextsig
 119 }
 120
 121 proc test_one_sig_reverse {prevsig} {
 122     global gdb_prompt
 123
 124     gdb_test "reverse-continue" "Breakpoint .* handle_$prevsig.*" \
 125         "reverse to handler of $prevsig"
 126
 127     set saw_signal 0
 128     set testmsg "reverse to gen_$prevsig"
 129     gdb_test_multiple "reverse-continue" $testmsg {
 130         -re "Breakpoint.*handle_.*$gdb_prompt " {
 131             pass "$testmsg (un-handled)"
 132         }
 133         -re "Program received signal SIG$prevsig.*$gdb_prompt " {
 134             pass "reverse to signal event, $prevsig"
 135
 136             set nested_testmsg "reverse signal delivered"
 137             gdb_test_multiple "frame" $nested_testmsg {
 138                 -re ".*handle_$prevsig.*$gdb_prompt " {
 139                     fail "$nested_testmsg (wrong location)"
 140                 }
 141                 -re ".*$gdb_prompt " {
 142                     pass $nested_testmsg
 143                 }
 144             }
 145
 146             set saw_signal 1
 147             send_gdb "reverse-continue\n"
 148             exp_continue
 149         }
 150         -re "Breakpoint.*kill.*$gdb_prompt " {
 151             if { $saw_signal } then {
 152                 pass "$testmsg (handled)"
 153             } else {
 154                 xfail "$testmsg (handled)"
 155             }
 156         }
 157         -re "No more reverse-execution history.*kill.*$gdb_prompt " {
 158             if { $saw_signal } then {
 159                 pass "$testmsg (handled)"
 160             } else {
 161                 xfail "$testmsg (handled)"
 162             }
 163         }
 164     }
 165 }
 166
 167 gdb_load $binfile
 168
 169 runto gen_ABRT
 170
 171 if [supports_process_record] {
 172     # Activate process record/replay
 173     gdb_test_no_output "record" "Turn on process record"
 174 }
 175
 176 test_one_sig HUP
 177 test_one_sig QUIT
 178 test_one_sig ILL
 179 test_one_sig EMT
 180 test_one_sig FPE
 181 test_one_sig BUS
 182 test_one_sig SEGV
 183 test_one_sig SYS
 184 test_one_sig PIPE
 185 test_one_sig ALRM
 186 test_one_sig URG
 187 test_one_sig TSTP
 188 test_one_sig CONT
 189 test_one_sig CHLD
 190 test_one_sig TTIN
 191 test_one_sig TTOU
 192 test_one_sig IO
 193 test_one_sig XCPU
 194 test_one_sig XFSZ
 195 test_one_sig VTALRM
 196 test_one_sig PROF
 197 test_one_sig WINCH
 198 test_one_sig LOST
 199 test_one_sig USR1
 200 test_one_sig USR2
 201 test_one_sig PWR
 202 test_one_sig POLL
 203 test_one_sig WIND
 204 test_one_sig PHONE
 205 test_one_sig WAITING
 206 test_one_sig LWP
 207 test_one_sig DANGER
 208 test_one_sig GRANT
 209 test_one_sig RETRACT
 210 test_one_sig MSG
 211 test_one_sig SOUND
 212 test_one_sig SAK
 213 test_one_sig PRIO
 214 test_one_sig 33
 215 test_one_sig 34
 216 test_one_sig 35
 217 test_one_sig 36
 218 test_one_sig 37
 219 test_one_sig 38
 220 test_one_sig 39
 221 test_one_sig 40
 222 test_one_sig 41
 223 test_one_sig 42
 224 test_one_sig 43
 225 test_one_sig 44
 226 test_one_sig 45
 227 test_one_sig 46
 228 test_one_sig 47
 229 test_one_sig 48
 230 test_one_sig 49
 231 test_one_sig 50
 232 test_one_sig 51
 233 test_one_sig 52
 234 test_one_sig 53
 235 test_one_sig 54
 236 test_one_sig 55
 237 test_one_sig 56
 238 test_one_sig 57
 239 test_one_sig 58
 240 test_one_sig 59
 241 test_one_sig 60
 242 test_one_sig 61
 243 test_one_sig 62
 244 test_one_sig 63
 245 test_one_sig TERM
 246
 247 # The last signal (SIGTERM) gets handled slightly differently because
 248 # we are not setting up for another test.
 249 gdb_test "handle SIGTERM stop print" \
 250     "SIGTERM\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
 251 gdb_test "b handle_TERM" "Breakpoint \[0-9\]+ .*"
 252 gdb_test "continue" \
 253     "Continuing.*Program received signal SIGTERM.*" \
 254     "get signal TERM"
 255 gdb_test "continue" "Breakpoint.*handle_TERM.*" "send signal TERM"
 256
 257 gdb_test "continue" "\[process \[0-9\]+ .*" "continue to sigal exit" \
 258     "The next instruction is syscall exit_group.* program...y. or n. " \
 259     "yes"
 260
 261 test_one_sig_reverse TERM
 262 test_one_sig_reverse 63
 263 test_one_sig_reverse 62
 264 test_one_sig_reverse 61
 265 test_one_sig_reverse 60
 266 test_one_sig_reverse 59
 267 test_one_sig_reverse 58
 268 test_one_sig_reverse 57
 269 test_one_sig_reverse 56
 270 test_one_sig_reverse 55
 271 test_one_sig_reverse 54
 272 test_one_sig_reverse 53
 273 test_one_sig_reverse 52
 274 test_one_sig_reverse 51
 275 test_one_sig_reverse 50
 276 test_one_sig_reverse 49
 277 test_one_sig_reverse 48
 278 test_one_sig_reverse 47
 279 test_one_sig_reverse 46
 280 test_one_sig_reverse 45
 281 test_one_sig_reverse 44
 282 test_one_sig_reverse 43
 283 test_one_sig_reverse 42
 284 test_one_sig_reverse 41
 285 test_one_sig_reverse 40
 286 test_one_sig_reverse 39
 287 test_one_sig_reverse 38
 288 test_one_sig_reverse 37
 289 test_one_sig_reverse 36
 290 test_one_sig_reverse 35
 291 test_one_sig_reverse 34
 292 test_one_sig_reverse 33
 293 test_one_sig_reverse PRIO
 294 test_one_sig_reverse SAK
 295 test_one_sig_reverse SOUND
 296 test_one_sig_reverse MSG
 297 test_one_sig_reverse RETRACT
 298 test_one_sig_reverse GRANT
 299 test_one_sig_reverse DANGER
 300 test_one_sig_reverse LWP
 301 test_one_sig_reverse WAITING
 302 test_one_sig_reverse PHONE
 303 test_one_sig_reverse WIND
 304 test_one_sig_reverse POLL
 305 test_one_sig_reverse PWR
 306 test_one_sig_reverse USR2
 307 test_one_sig_reverse USR1
 308 test_one_sig_reverse LOST
 309 test_one_sig_reverse WINCH
 310 test_one_sig_reverse PROF
 311 test_one_sig_reverse VTALRM
 312 test_one_sig_reverse XFSZ
 313 test_one_sig_reverse XCPU
 314 test_one_sig_reverse IO
 315 test_one_sig_reverse TTOU
 316 test_one_sig_reverse TTIN
 317 test_one_sig_reverse CHLD
 318 test_one_sig_reverse CONT
 319 test_one_sig_reverse TSTP
 320 test_one_sig_reverse URG
 321 test_one_sig_reverse ALRM
 322 test_one_sig_reverse PIPE
 323 test_one_sig_reverse SYS
 324 test_one_sig_reverse SEGV
 325 test_one_sig_reverse BUS
 326 test_one_sig_reverse FPE
 327 test_one_sig_reverse EMT
 328 test_one_sig_reverse ILL
 329 test_one_sig_reverse QUIT
 330 test_one_sig_reverse HUP
 331 test_one_sig_reverse ABRT
 332
 333 # Make the first signal SIGABRT because it is always supported.
 334 set sig_supported 1
 335 set thissig "ABRT"
 336
 337 test_one_sig HUP
 338 test_one_sig QUIT
 339 test_one_sig ILL
 340 test_one_sig EMT
 341 test_one_sig FPE
 342 test_one_sig BUS
 343 test_one_sig SEGV
 344 test_one_sig SYS
 345 test_one_sig PIPE
 346 test_one_sig ALRM
 347 test_one_sig URG
 348 test_one_sig TSTP
 349 test_one_sig CONT
 350 test_one_sig CHLD
 351 test_one_sig TTIN
 352 test_one_sig TTOU
 353 test_one_sig IO
 354 test_one_sig XCPU
 355 test_one_sig XFSZ
 356 test_one_sig VTALRM
 357 test_one_sig PROF
 358 test_one_sig WINCH
 359 test_one_sig LOST
 360 test_one_sig USR1
 361 test_one_sig USR2
 362 test_one_sig PWR
 363 test_one_sig POLL
 364 test_one_sig WIND
 365 test_one_sig PHONE
 366 test_one_sig WAITING
 367 test_one_sig LWP
 368 test_one_sig DANGER
 369 test_one_sig GRANT
 370 test_one_sig RETRACT
 371 test_one_sig MSG
 372 test_one_sig SOUND
 373 test_one_sig SAK
 374 test_one_sig PRIO
 375 test_one_sig 33
 376 test_one_sig 34
 377 test_one_sig 35
 378 test_one_sig 36
 379 test_one_sig 37
 380 test_one_sig 38
 381 test_one_sig 39
 382 test_one_sig 40
 383 test_one_sig 41
 384 test_one_sig 42
 385 test_one_sig 43
 386 test_one_sig 44
 387 test_one_sig 45
 388 test_one_sig 46
 389 test_one_sig 47
 390 test_one_sig 48
 391 test_one_sig 49
 392 test_one_sig 50
 393 test_one_sig 51
 394 test_one_sig 52
 395 test_one_sig 53
 396 test_one_sig 54
 397 test_one_sig 55
 398 test_one_sig 56
 399 test_one_sig 57
 400 test_one_sig 58
 401 test_one_sig 59
 402 test_one_sig 60
 403 test_one_sig 61
 404 test_one_sig 62
 405 test_one_sig 63
 406 test_one_sig TERM