* lib/gdb.exp (runto_main): Fix regular expression bug, add return 1.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index aacb83193bc1e931f0f0d41cc1453327139da64b..4f497bf8957525aa3dfe29df686f064bd1d762db 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Wed Mar 29 12:29:34 1995  Kung Hsu  <kung@mexican.cygnus.com>
+
+       * lib/gdb.exp (runto_main): Fix regular expression bug, add return 1.
+
 Tue Mar 28 08:46:45 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
        * gdb.base/recurse.exp: Make test names unique.  Change \\(+ to \\(.

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index cec1f2765ca0255e5a55fd1fab2799c389beb24b..943191220b5dc4ee3dcff108f79f130ddf2290bf 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -233,9 +233,10 @@ proc runto_main {} {
     send "step\n"
     # if use stubs step out of the breakpoint() function.
     expect {
-       -re "* at .*$prompt $" {}
+       -re "main.* at .*$prompt $" {}
        timeout { fail "single step at breakpoint() (timeout)" ; return 0 }
     }
+    return 1
 }
 
 #