From 13f887257b7a4c85e27042dc52af97c75202226f Mon Sep 17 00:00:00 2001 From: cagney Date: Thu, 8 Jul 2004 14:19:19 +0000 Subject: [PATCH] 2004-07-08 Andrew Cagney * gdb.base/sigbpt.exp: Make the common part of each test name a prefix instead of suffix. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.base/sigbpt.exp | 26 +++++++++++++------------- 2 files changed, 18 insertions(+), 13 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 1918fdfde3..abf9b0e49d 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2004-07-08 Andrew Cagney + + * gdb.base/sigbpt.exp: Make the common part of each test name a + prefix instead of suffix. + 2004-07-07 Bob Rossi * gdb.mi/mi2-file.exp: Revert to version 1.1, except changed name of diff --git a/gdb/testsuite/gdb.base/sigbpt.exp b/gdb/testsuite/gdb.base/sigbpt.exp index d9585337aa..61625b5237 100644 --- a/gdb/testsuite/gdb.base/sigbpt.exp +++ b/gdb/testsuite/gdb.base/sigbpt.exp @@ -145,21 +145,21 @@ proc stepi_out { name args } { # inferior. Stops a SIGSEGV infinite loop when a broke system # keeps re-executing the faulting instruction. rerun_to_main - gdb_test "handle SIGSEGV nostop print pass" "" "pass SIGSEGV; $name" - gdb_test "continue" "keeper.*" "continue to keeper; $name" - gdb_test "handle SIGSEGV stop print nopass" "" "nopass SIGSEGV; $name" + gdb_test "handle SIGSEGV nostop print pass" "" "${name}; pass SIGSEGV" + gdb_test "continue" "keeper.*" "${name}; continue to keeper" + gdb_test "handle SIGSEGV stop print nopass" "" "${name}; nopass SIGSEGV" # Insert all the breakpoints. To avoid the need to step over # these instructions, this is delayed until after the keeper has # been reached. for {set i 0} {$i < [llength $args]} {incr i} { 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 # 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" { -re "keeper.*$gdb_prompt $" { send_gdb "stepi\n" @@ -192,7 +192,7 @@ proc stepi_out { name args } { # Clear any breakpoints for {set i 0} {$i < [llength $args]} {incr i} { 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 # keeps re-executing the faulting instruction. rerun_to_main - gdb_test "handle SIGSEGV nostop print pass" "" "pass SIGSEGV; $name" - gdb_test "continue" "keeper.*" "continue to keeper; $name" - gdb_test "handle SIGSEGV stop print nopass" "" "nopass SIGSEGV; $name" + gdb_test "handle SIGSEGV nostop print pass" "" "${name}; pass SIGSEGV" + gdb_test "continue" "keeper.*" "${name}; continue to keeper" + gdb_test "handle SIGSEGV stop print nopass" "" "${name}; nopass SIGSEGV" # Insert all the breakpoints. To avoid the need to step over # 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]"] for {set i 0} {$i < [llength $args]} {incr i} { 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 @@ -229,17 +229,17 @@ proc cont_out { name args } { # instruction wasn't executed, rather the inferior was SIGTRAPed # with the PC at the breakpoint. 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. gdb_test "stepi" \ "Program received signal SIGSEGV.*pc *[at_segv] .*" \ - "stepi fault; $name" + "${name}; stepi fault" # Clear any breakpoints for {set i 0} {$i < [llength $args]} {incr i} { gdb_test "clear [lindex $args $i]" "Deleted .*" \ - "clear breakpoint $i of [llength $args]; $name" + "${name}; clear breakpoint $i of [llength $args]" } } -- 2.11.0