* gdb.base/restore.exp: Use temporary breakpoints, to avoid

overflowing the limited breakpoint tables on some ROM monitors
(like the ROM68K).

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 64f2098..b10aed8 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-17  Jim Blandy  <jimb@redhat.com>
+
+       * gdb.base/restore.exp: Use temporary breakpoints, to avoid
+       overflowing the limited breakpoint tables on some ROM monitors
+       (like the ROM68K).
+

 2001-09-15  Frank Ch. Eigler  <fche@redhat.com>
 
        * lib/insight-support.exp (_gdbtk_xvfb_init): Start Xvfb with
 2001-09-15  Frank Ch. Eigler  <fche@redhat.com>
 
        * lib/insight-support.exp (_gdbtk_xvfb_init): Start Xvfb with

diff --git a/gdb/testsuite/gdb.base/restore.exp b/gdb/testsuite/gdb.base/restore.exp
index 524ee5d..2ff7ad1 100644 (file)
--- a/gdb/testsuite/gdb.base/restore.exp
+++ b/gdb/testsuite/gdb.base/restore.exp
@@ -44,28 +44,25 @@ proc restore_tests { } {
 
     set limit 5
 
 
     set limit 5
 

-    # Set breakpoints at each of the `caller' functions.
-    for {set c 1} {$c <= $limit} {incr c} {
-      gdb_test "break caller$c" "Breakpoint.*\[0-9\]*\\." "break caller$c"
-    }
-
-    # Set breakpoints at each of the `callee' functions.
-    for {set c 1} {$c <= $limit} {incr c} {
-      gdb_test "break callee$c" "Breakpoint.*\[0-9\]*\\." "break caller$c"
-    }
-

     # For each caller function,
     #   call each of the callee functions,
     #   force a return from the callee, and
     #   make sure that the local variables still have the right values.
     for {set c 1} {$c <= $limit} {incr c} {
 
     # For each caller function,
     #   call each of the callee functions,
     #   force a return from the callee, and
     #   make sure that the local variables still have the right values.
     for {set c 1} {$c <= $limit} {incr c} {
 

+        # Set a breakpoint at the next caller function.
+        gdb_test "tbreak caller$c" "Breakpoint.*\[0-9\]*\\." "tbreak caller$c"
+

        # Continue to the next caller function.
        gdb_test "continue" ".*/\\* caller$c \\*/" "run to caller$c"
 
        # Do each callee function.
         for {set e 1} {$e <= $limit} {incr e} {
        # Continue to the next caller function.
        gdb_test "continue" ".*/\\* caller$c \\*/" "run to caller$c"
 
        # Do each callee function.
         for {set e 1} {$e <= $limit} {incr e} {

-           gdb_test "  continue" ".*/\\* callee$e \\*/" "run to callee$e"
+
+            gdb_test "tbreak callee$e" "Breakpoint.*\[0-9\]*\\." \
+                    "tbreak caller$e"
+            
+           gdb_test "continue" ".*/\\* callee$e \\*/" "run to callee$e"

 
             # Do a forced return from the callee.
            send_gdb "return 0\n"
 
             # Do a forced return from the callee.
            send_gdb "return 0\n"