diff options
| author | Daniel Jacobowitz <drow@false.org> | 2007-01-10 03:46:03 +0000 |
|---|---|---|
| committer | Daniel Jacobowitz <drow@false.org> | 2007-01-10 03:46:03 +0000 |
| commit | 4741b7375e2a57d5fb81aa5772bb6c33b3b91894 (patch) | |
| tree | c8258d08ff40b5f6f808437281291eb7ae1e5cfe | |
| parent | 054410c3154a945e79b4ad9ece38289b687fc37a (diff) | |
| download | gdb-4741b7375e2a57d5fb81aa5772bb6c33b3b91894.zip gdb-4741b7375e2a57d5fb81aa5772bb6c33b3b91894.tar.gz gdb-4741b7375e2a57d5fb81aa5772bb6c33b3b91894.tar.bz2 | |
* gdb.ada/catch_ex.exp: Call unsupported and stop if the runtime
has no debug information.
| -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" \ |