This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
RFA: use temporary breakpoints in restore.exp
- To: gdb-patches at sources dot redhat dot com
- Subject: RFA: use temporary breakpoints in restore.exp
- From: Jim Blandy <jimb at zwingli dot cygnus dot com>
- Date: Thu, 13 Sep 2001 18:56:52 -0500 (EST)
2001-09-13 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).
Index: gdb/testsuite/gdb.base/restore.exp
===================================================================
RCS file: /cvs/cvsfiles/devo/gdb/testsuite/gdb.base/restore.exp,v
retrieving revision 1.2
diff -c -r1.2 restore.exp
*** gdb/testsuite/gdb.base/restore.exp 1999/09/08 01:44:26 1.2
--- gdb/testsuite/gdb.base/restore.exp 2001/09/13 23:50:23
***************
*** 44,71 ****
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} {
# 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"
# Do a forced return from the callee.
send_gdb "return 0\n"
--- 44,68 ----
set limit 5
# 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 "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"