Index: gdb.base/langs.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.base/langs.exp,v retrieving revision 1.2 diff -u -p -r1.2 langs.exp --- gdb.base/langs.exp 23 Jun 2003 22:42:50 -0000 1.2 +++ gdb.base/langs.exp 3 Dec 2003 01:22:27 -0000 @@ -65,8 +65,23 @@ gdb_start gdb_reinitialize_dir $srcdir/$subdir gdb_load $binfile -gdb_test "b langs0" "Function \"langs0\" not defined\.|Breakpoint .* (deferred).*" \ - "break on nonexistent function in langs.exp" +send_gdb "b langs0\n" +gdb_expect { + -re "Function \"langs0\" not defined\.$" { + pass "break on nonexistent function in langs.exp" + } + -re "Function \"langs0\" not defined\..*Make breakpoint pending.*" { + send_gdb "n\n" + pass "break on nonexistent function in langs.exp" + } + -re "Breakpoint .* (deferred).*" { + pass "break on nonexistent function in langs.exp" + } + -re ".*$gdb_prompt.*" { + fail "break on nonexistent function in langs.exp" + } + timeout { fail "break on nonexistent function in langs.exp" } +} if {$hp_aCC_compiler} { set isfixed 1 Index: gdb.base/shlib-call.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.base/shlib-call.exp,v retrieving revision 1.7 diff -u -p -r1.7 shlib-call.exp --- gdb.base/shlib-call.exp 28 Sep 2002 01:12:04 -0000 1.7 +++ gdb.base/shlib-call.exp 3 Dec 2003 01:22:27 -0000 @@ -291,7 +291,7 @@ send_gdb "set width 0\n" ; gdb_expect -r # PR's 16495, 18213 # test that we can re-set breakpoints in shared libraries -gdb_test "break shr1" "Breakpoint 1.*" "set bp in shared library" +gdb_breakpoint "shr1" # FIXME: should not send "run" explicitly. Non-portable. Index: lib/gdb.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/lib/gdb.exp,v retrieving revision 1.41 diff -u -p -r1.41 gdb.exp --- lib/gdb.exp 23 Nov 2003 01:09:19 -0000 1.41 +++ lib/gdb.exp 3 Dec 2003 01:22:28 -0000 @@ -269,6 +269,11 @@ proc gdb_breakpoint { function } { -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 "Make breakpoint pending.*y or n. $" { + send_gdb "n\n"; + fail "setting breakpoint at $function" ; + return 0 + } -re "$gdb_prompt $" { fail "setting breakpoint at $function" ; return 0 } timeout { fail "setting breakpoint at $function (timeout)" ; return 0 } }