From: Jim Blandy <jimb@codesourcery.com>
Date: Mon, 17 Sep 2001 19:42:28 +0000 (+0000)
Subject: * gdb.base/restore.exp: Use temporary breakpoints, to avoid
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1b8947f0b5670b7f1a3c1305d4115bd7e5a1ab69;p=binutils-gdb.git

* 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 64f2098768c..b10aed81c00 100644
--- 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
diff --git a/gdb/testsuite/gdb.base/restore.exp b/gdb/testsuite/gdb.base/restore.exp
index 524ee5d534c..2ff7ad15075 100644
--- 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 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} {
 
+        # 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} {
-  	    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"