diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/print_pc.exp | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index dd100f6..e973914 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-01-08 Joel Brobecker <brobecker@adacore.com> + + * gdb.ada/print_pc.exp: Add verification of where gdb_start_cmd + landed. Should also fix random failures in the test following it. + 2008-01-07 Thiago Jung Bauermann <bauerman@br.ibm.com> * gdb.base/dfp-exprs.exp (test_dfp_arithmetic_expressions): Add tests diff --git a/gdb/testsuite/gdb.ada/print_pc.exp b/gdb/testsuite/gdb.ada/print_pc.exp index 50fbe75..555ef10 100644 --- a/gdb/testsuite/gdb.ada/print_pc.exp +++ b/gdb/testsuite/gdb.ada/print_pc.exp @@ -39,6 +39,10 @@ if { [gdb_start_cmd] < 0 } { return -1 } +gdb_test "" \ + "dummy \\(\\) at .*dummy.adb:.*" \ + "start inferior" + gdb_test "p /x \$pc" \ "0x\[0-9a-zA-Z\]+" \ "p /x \$pc" |