From 1b8947f0b5670b7f1a3c1305d4115bd7e5a1ab69 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 17 Sep 2001 19:42:28 +0000 Subject: [PATCH] * gdb.base/restore.exp: Use temporary breakpoints, to avoid overflowing the limited breakpoint tables on some ROM monitors (like the ROM68K). --- gdb/testsuite/ChangeLog | 6 ++++++ gdb/testsuite/gdb.base/restore.exp | 19 ++++++++----------- 2 files changed, 14 insertions(+), 11 deletions(-) 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 + + * 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 * 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" -- 2.30.2