diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/formatted_ref.exp')
| -rw-r--r-- | gdb/testsuite/gdb.ada/formatted_ref.exp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/gdb/testsuite/gdb.ada/formatted_ref.exp b/gdb/testsuite/gdb.ada/formatted_ref.exp index 0fe5c8dd7c..ea118f689a 100644 --- a/gdb/testsuite/gdb.ada/formatted_ref.exp +++ b/gdb/testsuite/gdb.ada/formatted_ref.exp @@ -46,16 +46,13 @@ proc get_address { var } { global expect_out global gdb_prompt - send_gdb "print $var'access\n" - gdb_expect { + gdb_test_multiple "print $var'access" "address of $var" { -re "\\$\[0-9\]+ = \\(.*\\) (0x\[0-9a-f\]+).*$gdb_prompt $" { return $expect_out(1,string) - } - timeout { - perror "couldn't find address of $var" - return "" } } + perror "couldn't find address of $var" + return "" } proc test_p_x { var val addr } { |