aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/lib
diff options
context:
space:
mode:
authorAleksandar Ristovski <aristovski@qnx.com>2008-04-15 14:33:55 +0000
committerAleksandar Ristovski <aristovski@qnx.com>2008-04-15 14:33:55 +0000
commit18ac113bcca70c9d886dbdeefd660836ab6c5bf6 (patch)
treeee1fb497795416011ad430293903954fbb29523b /gdb/testsuite/lib
parent2cec12e55bda9d647ec2de43e45638d1bd4e102e (diff)
downloadgdb-18ac113bcca70c9d886dbdeefd660836ab6c5bf6.zip
gdb-18ac113bcca70c9d886dbdeefd660836ab6c5bf6.tar.gz
gdb-18ac113bcca70c9d886dbdeefd660836ab6c5bf6.tar.bz2
* gdb.base/attach.exp (do_attach_tests): Matching pattern for
temporary breakpoint to match "Temporary breakpoint". * gdb.base/break.exp (delete_breakpoints): Likewise. * gdb.base/call-ar-st.exp (get_debug_format): Likewise. * gdb.base/commands.exp (temporary_breakpoint_commands): Likewise. * gdb.base/display.exp: Likewise. * gdb.base/foll-exec.exp (do_exec_tests): Likewise. * gdb.base/foll-fork.exp (catch_fork_child_follow): Likewise. * gdb.base/restore.exp (restore_tests): Likewise. * gdb.base/sepdebug.exp: Likewise. * gdb.base/watchpoint.exp: Likewise. * gdb.mi/mi-cli.exp: Added argument for new "disp" field. * gdb.mi/mi-pending.exp: Likewise. * gdb.mi/mi-simplerun.exp (test_running_the_program): Likewise. * gdb.mi/mi-until.exp (test_runnint_to_foo): Likewise. * gdb.mi/mi-var-cmd.exp: Likewise. * gdb.mi/mi-var-display.exp: Likewise. * gdb.mi/mi2-cli.exp: Likewise. * gdb.mi/mi2-simplerun.exp (test_running_the_program): Likewise. * gdb.mi/mi2-until.exp (test_running_to_foo): Likewise. * gdb.mi/mi2-var-display.exp: Likewise. * lib/gdb.exp (gdb_breakpoint): Pattern for temporary breakpoint. * lib/mi-support.exp (mi_runto_helper): Use "after_reason" argument for new "disp" field. (mi_expect_stop): Move after_reason argument to be really after reason. This is to support fix for PR2424.
Diffstat (limited to 'gdb/testsuite/lib')
-rw-r--r--gdb/testsuite/lib/gdb.exp10
-rw-r--r--gdb/testsuite/lib/mi-support.exp11
2 files changed, 13 insertions, 8 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 9260e9a..8ad8792 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -337,17 +337,19 @@ proc gdb_breakpoint { function args } {
}
set break_command "break"
+ set break_message "Breakpoint"
if {[lsearch -exact [lindex $args 0] temporary] != -1} {
set break_command "tbreak"
+ set break_message "Temporary breakpoint"
}
send_gdb "$break_command $function\n"
# The first two regexps are what we get with -g, the third is without -g.
gdb_expect 30 {
- -re "Breakpoint \[0-9\]* at .*: file .*, line $decimal.\r\n$gdb_prompt $" {}
- -re "Breakpoint \[0-9\]*: file .*, line $decimal.\r\n$gdb_prompt $" {}
- -re "Breakpoint \[0-9\]* at .*$gdb_prompt $" {}
- -re "Breakpoint \[0-9\]* \\(.*\\) pending.*$gdb_prompt $" {
+ -re "$break_message \[0-9\]* at .*: file .*, line $decimal.\r\n$gdb_prompt $" {}
+ -re "$break_message \[0-9\]*: file .*, line $decimal.\r\n$gdb_prompt $" {}
+ -re "$break_message \[0-9\]* at .*$gdb_prompt $" {}
+ -re "$break_message \[0-9\]* \\(.*\\) pending.*$gdb_prompt $" {
if {$pending_response == "n"} {
fail "setting breakpoint at $function"
return 0
diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp
index 6528fb4..2b1ead8 100644
--- a/gdb/testsuite/lib/mi-support.exp
+++ b/gdb/testsuite/lib/mi-support.exp
@@ -889,7 +889,7 @@ proc mi_runto_helper {func run_or_continue} {
mi_send_resuming_command "exec-continue" "$test"
}
- mi_expect_stop "" $func ".*" ".*" "\[0-9\]+" "" $test
+ mi_expect_stop "breakpoint-hit" $func ".*" ".*" "\[0-9\]+" { "" "disp=\"del\"" } $test
}
proc mi_runto {func} {
@@ -970,13 +970,16 @@ proc mi_expect_stop { reason func args file line extra test } {
set r "reason=\"$reason\","
}
- verbose -log "mi_expect_stop: expecting: .*220\\*stopped,${r}${bn}${after_reason}thread-id=\"$decimal\",frame=\{addr=\"$hex\",func=\"$func\",args=$args,file=\".*$file\",fullname=\"${fullname_syntax}$file\",line=\"$line\"\}$after_stopped\r\n$mi_gdb_prompt$"
+
+ set a $after_reason
+
+ verbose -log "mi_expect_stop: expecting: .*220\\*stopped,${r}${a}${bn}thread-id=\"$decimal\",frame=\{addr=\"$hex\",func=\"$func\",args=$args,file=\".*$file\",fullname=\"${fullname_syntax}$file\",line=\"$line\"\}$after_stopped\r\n$mi_gdb_prompt$"
gdb_expect {
- -re ".*220\\*stopped,${r}${bn}${after_reason}thread-id=\"$decimal\",frame=\{addr=\"$hex\",func=\"$func\",args=$args,file=\".*$file\",fullname=\"${fullname_syntax}$file\",line=\"($line)\"\}$after_stopped\r\n$mi_gdb_prompt$" {
+ -re ".*220\\*stopped,${r}${a}${bn}thread-id=\"$decimal\",frame=\{addr=\"$hex\",func=\"$func\",args=$args,file=\".*$file\",fullname=\"${fullname_syntax}$file\",line=\"($line)\"\}$after_stopped\r\n$mi_gdb_prompt$" {
pass "$test"
return $expect_out(2,string)
}
- -re ".*220\\*stopped,${r}${bn}${after_reason}thread-id=\"$decimal\",frame=\{addr=\"$hex\",func=\".*\",args=\[\\\[\{\].*\[\\\]\}\],file=\".*\",fullname=\"${fullname_syntax}.*\",line=\"\[0-9\]*\"\}.*\r\n$mi_gdb_prompt$" {
+ -re ".*220\\*stopped,${r}${a}${bn}thread-id=\"$decimal\",frame=\{addr=\"$hex\",func=\".*\",args=\[\\\[\{\].*\[\\\]\}\],file=\".*\",fullname=\"${fullname_syntax}.*\",line=\"\[0-9\]*\"\}.*\r\n$mi_gdb_prompt$" {
fail "$test (stopped at wrong place)"
return -1
}