* lib/gdb.exp (delete_breakpoints): If there were no breakpoints,

	don't give an error.
	* gdb.base/term.exp: Call delete_breakpoints before starting.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a5765ad74ea8c0bf3275b0678878d87d54a6cdb7..d886f6ca7586c0e556776c87be1c46ca3ca0aeaf 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,9 @@
 Tue Jun  7 08:30:15 1994  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
+       * lib/gdb.exp (delete_breakpoints): If there were no breakpoints,
+       don't give an error.
+       * gdb.base/term.exp: Call delete_breakpoints before starting.
+
        * gdb.base/Makefile.in (EXECUTABLES): Remove t10.
        (t10): Add comment.
 

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 126422e082a1a3196435592b5dc1e0f4b9417456..8ca6876e1f15f83d60873eed2e13e048bd4ad09f 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -99,7 +99,8 @@ proc delete_breakpoints {} {
            exp_continue
        }
        -re "y\r\n$prompt $" {}
-       -re ".*$prompt $" { perror "Delete all breakpoints" ; return }
+       -re ".*$prompt $" { # This happens if there were no breakpoints
+           }
        timeout { perror "Delete all breakpoints (timeout)" ; return }
     }
     send "info breakpoints\n"