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

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