diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/catch_ex.exp | 16 |
2 files changed, 18 insertions, 3 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 3a9f696..5053e7e 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2007-01-09 Daniel Jacobowitz <dan@codesourcery.com> + * gdb.ada/catch_ex.exp: Call unsupported and stop if the runtime + has no debug information. + +2007-01-09 Daniel Jacobowitz <dan@codesourcery.com> + * gdb.base/annota1.exp: Remove extra send_gdb. 2007-01-09 Jan Kratochvil <jan.kratochvil@redhat.com> diff --git a/gdb/testsuite/gdb.ada/catch_ex.exp b/gdb/testsuite/gdb.ada/catch_ex.exp index 603909c..2ef15a7 100644 --- a/gdb/testsuite/gdb.ada/catch_ex.exp +++ b/gdb/testsuite/gdb.ada/catch_ex.exp @@ -56,9 +56,19 @@ if ![runto_main] then { return 0 } -gdb_test "catch exception" \ - "Catchpoint $any_nb: all Ada exceptions" \ - "insert catchpoint on all Ada exceptions" +set msg "insert catchpoint on all Ada exceptions" +gdb_test_multiple "catch exception" $msg { + -re "Catchpoint $any_nb: all Ada exceptions$eol$gdb_prompt $" { + pass $msg + } + -re "Cannot break on __gnat_raise_nodefer_with_msg in this configuration\.$eol$gdb_prompt $" { + # If the runtime was not built with enough debug information, + # or if it was stripped, we can not test exception + # catchpoints. + unsupported $msg + return -1 + } +} gdb_test "info break" \ "$info_break_header$eol.*$catch_exception_info" \ |