diff options
author | Jim Blandy <jimb@codesourcery.com> | 2001-09-17 19:42:28 +0000 |
---|---|---|
committer | Jim Blandy <jimb@codesourcery.com> | 2001-09-17 19:42:28 +0000 |
commit | 1b8947f0b5670b7f1a3c1305d4115bd7e5a1ab69 (patch) | |
tree | 076e4948978042df45e6879ac555225d29113f1a /gdb | |
parent | bb731fb64587ee3a124d6f4df3f837c360580b0b (diff) | |
download | gdb-1b8947f0b5670b7f1a3c1305d4115bd7e5a1ab69.zip gdb-1b8947f0b5670b7f1a3c1305d4115bd7e5a1ab69.tar.gz gdb-1b8947f0b5670b7f1a3c1305d4115bd7e5a1ab69.tar.bz2 |
* gdb.base/restore.exp: Use temporary breakpoints, to avoid
overflowing the limited breakpoint tables on some ROM monitors
(like the ROM68K).
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
-rw-r--r-- | 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 64f2098..b10aed8 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 524ee5d..2ff7ad1 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" |