2009-09-12 Michael Snyder <msnyder@vmware.com>
* gdb.reverse/step-reverse.exp: Explicitly check for targets that can support reverse debuggnig.
This commit is contained in:
parent
d96381ee8c
commit
b43b923a25
|
@ -1,3 +1,8 @@
|
|||
2009-09-12 Michael Snyder <msnyder@vmware.com>
|
||||
|
||||
* gdb.reverse/step-reverse.exp: Explicitly check for targets
|
||||
that can support reverse debuggnig.
|
||||
|
||||
2009-09-11 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* gdb.dwarf2/valop.S: New file.
|
||||
|
|
File diff suppressed because it is too large
Load Diff
|
@ -0,0 +1,421 @@
|
|||
# Copyright 2009
|
||||
# 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-reverse.exp because of nosignals."
|
||||
return
|
||||
}
|
||||
|
||||
if ![target_info exists gdb,can_reverse] {
|
||||
return
|
||||
}
|
||||
|
||||
if $tracelevel then {
|
||||
strace $tracelevel
|
||||
}
|
||||
|
||||
set prms_id 0
|
||||
set bug_id 0
|
||||
|
||||
gdb_exit
|
||||
gdb_start
|
||||
gdb_reinitialize_dir $srcdir/$subdir
|
||||
|
||||
set testfile sigall-reverse
|
||||
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 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 {
|
||||
if { $thissig == "IO" } {
|
||||
setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
|
||||
}
|
||||
set testmsg "get signal $thissig"
|
||||
gdb_test_multiple "continue" $testmsg {
|
||||
-re "Program received signal SIG$thissig.*handle_$thissig.*$gdb_prompt $" {
|
||||
fail "$testmsg (wrong location)"
|
||||
}
|
||||
-re "Program received signal SIG$thissig.*$gdb_prompt $" {
|
||||
pass $testmsg
|
||||
}
|
||||
-re "Breakpoint.* handle_$thissig.*$gdb_prompt $" {
|
||||
xfail $testmsg
|
||||
set need_another_continue 0
|
||||
}
|
||||
}
|
||||
}
|
||||
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
|
||||
}
|
||||
}
|
||||
|
||||
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*"
|
||||
}
|
||||
set testmsg "send signal $thissig"
|
||||
gdb_test_multiple "continue" $testmsg {
|
||||
-re "Breakpoint.*handle_$thissig.*$gdb_prompt $" {
|
||||
pass $testmsg
|
||||
}
|
||||
-re "Breakpoint.*gen_$nextsig.*kill.*$gdb_prompt $" {
|
||||
fail "missed breakpoint at handle_$thissig"
|
||||
set missed_handler 1
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if { $missed_handler == "0" } then {
|
||||
set testmsg "advance to $nextsig"
|
||||
gdb_test_multiple "signal 0" $testmsg {
|
||||
-re "Breakpoint.*gen_$nextsig.*kill.*$gdb_prompt $" {
|
||||
pass $testmsg
|
||||
set sig_supported 1
|
||||
}
|
||||
-re "Breakpoint.*gen_$nextsig.*handle.*$gdb_prompt $" {
|
||||
pass $testmsg
|
||||
set sig_supported 0
|
||||
}
|
||||
}
|
||||
}
|
||||
set thissig $nextsig
|
||||
}
|
||||
|
||||
proc test_one_sig_reverse {prevsig} {
|
||||
global gdb_prompt
|
||||
|
||||
gdb_test "reverse-continue" "Breakpoint .* handle_$prevsig.*" \
|
||||
"reverse to handler of $prevsig"
|
||||
|
||||
set saw_signal 0
|
||||
set testmsg "reverse to gen_$prevsig"
|
||||
gdb_test_multiple "reverse-continue" $testmsg {
|
||||
-re "Breakpoint.*handle_.*$gdb_prompt " {
|
||||
pass "$testmsg (un-handled)"
|
||||
}
|
||||
-re "Program received signal SIG$prevsig.*$gdb_prompt " {
|
||||
pass "reverse to signal event, $prevsig"
|
||||
|
||||
set nested_testmsg "reverse signal delivered"
|
||||
gdb_test_multiple "frame" $nested_testmsg {
|
||||
-re ".*handle_$prevsig.*$gdb_prompt " {
|
||||
fail "$nested_testmsg (wrong location)"
|
||||
}
|
||||
-re ".*$gdb_prompt " {
|
||||
pass $nested_testmsg
|
||||
}
|
||||
}
|
||||
|
||||
set saw_signal 1
|
||||
send_gdb "reverse-continue\n"
|
||||
exp_continue
|
||||
}
|
||||
-re "Breakpoint.*kill.*$gdb_prompt " {
|
||||
if { $saw_signal } then {
|
||||
pass "$testmsg (handled)"
|
||||
} else {
|
||||
xfail "$testmsg (handled)"
|
||||
}
|
||||
}
|
||||
-re "No more reverse-execution history.*kill.*$gdb_prompt " {
|
||||
if { $saw_signal } then {
|
||||
pass "$testmsg (handled)"
|
||||
} else {
|
||||
xfail "$testmsg (handled)"
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
gdb_load $binfile
|
||||
|
||||
runto gen_ABRT
|
||||
|
||||
if [target_info exists gdb,use_precord] {
|
||||
# Activate process record/replay
|
||||
gdb_test "record" "" "Turn on process record"
|
||||
# FIXME: command ought to acknowledge, so we can test if it succeeded.
|
||||
}
|
||||
|
||||
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
|
||||
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
|
||||
|
||||
# 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"
|
||||
|
||||
set testmsg "continue to sigall exit"
|
||||
gdb_test_multiple "continue" $testmsg {
|
||||
-re ".*Do you want to stop the program.*$" {
|
||||
send_gdb "yes\n"
|
||||
exp_continue
|
||||
}
|
||||
-re "$gdb_prompt " {
|
||||
pass $testmsg
|
||||
}
|
||||
}
|
||||
|
||||
test_one_sig_reverse TERM
|
||||
test_one_sig_reverse 63
|
||||
test_one_sig_reverse 62
|
||||
test_one_sig_reverse 61
|
||||
test_one_sig_reverse 60
|
||||
test_one_sig_reverse 59
|
||||
test_one_sig_reverse 58
|
||||
test_one_sig_reverse 57
|
||||
test_one_sig_reverse 56
|
||||
test_one_sig_reverse 55
|
||||
test_one_sig_reverse 54
|
||||
test_one_sig_reverse 53
|
||||
test_one_sig_reverse 52
|
||||
test_one_sig_reverse 51
|
||||
test_one_sig_reverse 50
|
||||
test_one_sig_reverse 49
|
||||
test_one_sig_reverse 48
|
||||
test_one_sig_reverse 47
|
||||
test_one_sig_reverse 46
|
||||
test_one_sig_reverse 45
|
||||
test_one_sig_reverse 44
|
||||
test_one_sig_reverse 43
|
||||
test_one_sig_reverse 42
|
||||
test_one_sig_reverse 41
|
||||
test_one_sig_reverse 40
|
||||
test_one_sig_reverse 39
|
||||
test_one_sig_reverse 38
|
||||
test_one_sig_reverse 37
|
||||
test_one_sig_reverse 36
|
||||
test_one_sig_reverse 35
|
||||
test_one_sig_reverse 34
|
||||
test_one_sig_reverse 33
|
||||
test_one_sig_reverse PRIO
|
||||
test_one_sig_reverse SAK
|
||||
test_one_sig_reverse SOUND
|
||||
test_one_sig_reverse MSG
|
||||
test_one_sig_reverse RETRACT
|
||||
test_one_sig_reverse GRANT
|
||||
test_one_sig_reverse DANGER
|
||||
test_one_sig_reverse LWP
|
||||
test_one_sig_reverse WAITING
|
||||
test_one_sig_reverse PHONE
|
||||
test_one_sig_reverse WIND
|
||||
test_one_sig_reverse POLL
|
||||
test_one_sig_reverse PWR
|
||||
test_one_sig_reverse USR2
|
||||
test_one_sig_reverse USR1
|
||||
test_one_sig_reverse LOST
|
||||
test_one_sig_reverse WINCH
|
||||
test_one_sig_reverse PROF
|
||||
test_one_sig_reverse VTALRM
|
||||
test_one_sig_reverse XFSZ
|
||||
test_one_sig_reverse XCPU
|
||||
test_one_sig_reverse IO
|
||||
test_one_sig_reverse TTOU
|
||||
test_one_sig_reverse TTIN
|
||||
test_one_sig_reverse CHLD
|
||||
test_one_sig_reverse CONT
|
||||
test_one_sig_reverse TSTP
|
||||
test_one_sig_reverse URG
|
||||
test_one_sig_reverse ALRM
|
||||
test_one_sig_reverse PIPE
|
||||
test_one_sig_reverse SYS
|
||||
test_one_sig_reverse SEGV
|
||||
test_one_sig_reverse BUS
|
||||
test_one_sig_reverse FPE
|
||||
test_one_sig_reverse EMT
|
||||
test_one_sig_reverse ILL
|
||||
test_one_sig_reverse QUIT
|
||||
test_one_sig_reverse HUP
|
||||
test_one_sig_reverse ABRT
|
||||
|
||||
# Make the first signal SIGABRT because it is always supported.
|
||||
set sig_supported 1
|
||||
set thissig "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
|
||||
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
|
Loading…
Reference in New Issue