espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-07-01 18:32:32 +08:00
Code Issues Packages Projects Releases Wiki Activity

2004-07-08 Andrew Cagney <cagney@gnu.org>

Browse Source 
* gdb.base/sigbpt.exp: Make the common part of each test name a
	prefix instead of suffix.
This commit is contained in:
Andrew Cagney
2004-07-08 14:19:21 +00:00
parent 09bcec8017
commit 1544280f1d
2 changed files with 18 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2004-07-08 Andrew Cagney <cagney@gnu.org>
* gdb.base/sigbpt.exp: Make the common part of each test name a
prefix instead of suffix.
2004-07-07 Bob Rossi <bob_rossi@cox.net> 2004-07-07 Bob Rossi <bob_rossi@cox.net>
* gdb.mi/mi2-file.exp: Revert to version 1.1, except changed name of * gdb.mi/mi2-file.exp: Revert to version 1.1, except changed name of

26
gdb/testsuite/gdb.base/sigbpt.exp
View File

@ -145,21 +145,21 @@ proc stepi_out { name args } {
# inferior. Stops a SIGSEGV infinite loop when a broke system # inferior. Stops a SIGSEGV infinite loop when a broke system
# keeps re-executing the faulting instruction. # keeps re-executing the faulting instruction.
rerun_to_main rerun_to_main
gdb_test "handle SIGSEGV nostop print pass" "" "pass SIGSEGV; $name" gdb_test "handle SIGSEGV nostop print pass" "" "${name}; pass SIGSEGV"
gdb_test "continue" "keeper.*" "continue to keeper; $name" gdb_test "continue" "keeper.*" "${name}; continue to keeper"
gdb_test "handle SIGSEGV stop print nopass" "" "nopass SIGSEGV; $name" gdb_test "handle SIGSEGV stop print nopass" "" "${name}; nopass SIGSEGV"
# Insert all the breakpoints. To avoid the need to step over # Insert all the breakpoints. To avoid the need to step over
# these instructions, this is delayed until after the keeper has # these instructions, this is delayed until after the keeper has
# been reached. # been reached.
for {set i 0} {$i < [llength $args]} {incr i} { for {set i 0} {$i < [llength $args]} {incr i} {
gdb_test "break [lindex $args $i]" "Breakpoint.*" \ gdb_test "break [lindex $args $i]" "Breakpoint.*" \
"set breakpoint $i of [llength $args]; $name" "${name}; set breakpoint $i of [llength $args]"
} }
# Single step our way out of the keeper, through the signal # Single step our way out of the keeper, through the signal
# trampoline, and back to the instruction that faulted. # trampoline, and back to the instruction that faulted.
set test "stepi out of handler; $name" set test "${name}; stepi out of handler"
gdb_test_multiple "stepi" "$test" { gdb_test_multiple "stepi" "$test" {
-re "keeper.*$gdb_prompt $" { -re "keeper.*$gdb_prompt $" {
send_gdb "stepi\n" send_gdb "stepi\n"
@ -192,7 +192,7 @@ proc stepi_out { name args } {
# Clear any breakpoints # Clear any breakpoints
for {set i 0} {$i < [llength $args]} {incr i} { for {set i 0} {$i < [llength $args]} {incr i} {
gdb_test "clear [lindex $args $i]" "Deleted .*" \ gdb_test "clear [lindex $args $i]" "Deleted .*" \
"clear breakpoint $i of [llength $args]; $name" "${name}; clear breakpoint $i of [llength $args]"
} }
} }
@ -210,9 +210,9 @@ proc cont_out { name args } {
# inferior. Stops a SIGSEGV infinite loop when a broke system # inferior. Stops a SIGSEGV infinite loop when a broke system
# keeps re-executing the faulting instruction. # keeps re-executing the faulting instruction.
rerun_to_main rerun_to_main
gdb_test "handle SIGSEGV nostop print pass" "" "pass SIGSEGV; $name" gdb_test "handle SIGSEGV nostop print pass" "" "${name}; pass SIGSEGV"
gdb_test "continue" "keeper.*" "continue to keeper; $name" gdb_test "continue" "keeper.*" "${name}; continue to keeper"
gdb_test "handle SIGSEGV stop print nopass" "" "nopass SIGSEGV; $name" gdb_test "handle SIGSEGV stop print nopass" "" "${name}; nopass SIGSEGV"
# Insert all the breakpoints. To avoid the need to step over # Insert all the breakpoints. To avoid the need to step over
# these instructions, this is delayed until after the keeper has # these instructions, this is delayed until after the keeper has
@ -221,7 +221,7 @@ proc cont_out { name args } {
set args [concat $args "*[at_segv]"] set args [concat $args "*[at_segv]"]
for {set i 0} {$i < [llength $args]} {incr i} { for {set i 0} {$i < [llength $args]} {incr i} {
gdb_test "break [lindex $args $i]" "Breakpoint.*" \ gdb_test "break [lindex $args $i]" "Breakpoint.*" \
"set breakpoint $i of [llength $args]; $name" "${name}; set breakpoint $i of [llength $args]"
} }
# Let the handler return, it should "appear to hit" the breakpoint # Let the handler return, it should "appear to hit" the breakpoint
@ -229,17 +229,17 @@ proc cont_out { name args } {
# instruction wasn't executed, rather the inferior was SIGTRAPed # instruction wasn't executed, rather the inferior was SIGTRAPed
# with the PC at the breakpoint. # with the PC at the breakpoint.
gdb_test "continue" "Breakpoint.*pc *[at_segv] .*" \ gdb_test "continue" "Breakpoint.*pc *[at_segv] .*" \
"continue to breakpoint at fault; $name" "${name}; continue to breakpoint at fault"
# Now single step the faulted instrction at that breakpoint. # Now single step the faulted instrction at that breakpoint.
gdb_test "stepi" \ gdb_test "stepi" \
"Program received signal SIGSEGV.*pc *[at_segv] .*" \ "Program received signal SIGSEGV.*pc *[at_segv] .*" \
"stepi fault; $name" "${name}; stepi fault"
# Clear any breakpoints # Clear any breakpoints
for {set i 0} {$i < [llength $args]} {incr i} { for {set i 0} {$i < [llength $args]} {incr i} {
gdb_test "clear [lindex $args $i]" "Deleted .*" \ gdb_test "clear [lindex $args $i]" "Deleted .*" \
"clear breakpoint $i of [llength $args]; $name" "${name}; clear breakpoint $i of [llength $args]"
} }
} }