diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/break-interp.exp')
-rw-r--r-- | gdb/testsuite/gdb.base/break-interp.exp | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/gdb/testsuite/gdb.base/break-interp.exp b/gdb/testsuite/gdb.base/break-interp.exp index d3bda44..75e0ad7 100644 --- a/gdb/testsuite/gdb.base/break-interp.exp +++ b/gdb/testsuite/gdb.base/break-interp.exp @@ -442,21 +442,19 @@ proc test_ld {file ifmain trynosym displacement} { if $ifmain { reach "_dl_debug_state" run $displacement - # Use two separate gdb_expect statements to avoid timeouts due to - # slow processing of wildcard capturing long output + # Use two separate gdb_test_multiple statements to avoid timeouts due + # to slow processing of wildcard capturing long output set test "info files" set entrynohex "" - send_gdb "$test\n" - gdb_expect { + gdb_test_multiple $test $test { -re "\r\n\[\t \]*Entry point:\[\t \]*0x(\[0-9a-f\]+)\r\n" { set entrynohex $expect_out(1,string) - gdb_expect { - -re "$gdb_prompt $" { pass $test } - timeout { fail "$test (timeout)" } + gdb_test_multiple "" $test { + -re "\r\n$gdb_prompt $" { + pass $test + } } } - -re ".*$gdb_prompt $" { fail $test } - timeout { fail "$test (timeout)" } } # `info sym' cannot be tested for .opd as the binary may not have |