From 14b1a05659e45723dbf9a91ed13c09734252eb1e Mon Sep 17 00:00:00 2001 From: Daniel Jacobowitz Date: Sun, 8 Feb 2004 22:30:42 +0000 Subject: [PATCH] * lib/gdb.exp (gdb_breakpoint): Fail on unexpected pending breakpoints. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/lib/gdb.exp | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 8d91aaf..2acbf53 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2004-02-08 Daniel Jacobowitz + + * lib/gdb.exp (gdb_breakpoint): Fail on unexpected pending + breakpoints. + 2004-02-07 Daniel Jacobowitz * config/sim.exp (gdb_load): Handle $arg == "". diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 5838c0d..8933897 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -276,8 +276,8 @@ proc gdb_breakpoint { function } { -re "Breakpoint \[0-9\]*: file .*, line $decimal.\r\n$gdb_prompt $" {} -re "Breakpoint \[0-9\]* at .*$gdb_prompt $" {} -re "Make breakpoint pending.*y or n. $" { - gdb_test "n" "" "setting breakpoint at $function" ; - return 1; + send_gdb "n\n" + exp_continue } -re "$gdb_prompt $" { fail "setting breakpoint at $function" ; return 0 } timeout { fail "setting breakpoint at $function (timeout)" ; return 0 } -- 2.7.4