From 4741b7375e2a57d5fb81aa5772bb6c33b3b91894 Mon Sep 17 00:00:00 2001 From: Daniel Jacobowitz Date: Wed, 10 Jan 2007 03:46:03 +0000 Subject: [PATCH] * gdb.ada/catch_ex.exp: Call unsupported and stop if the runtime has no debug information. --- gdb/testsuite/ChangeLog | 5 +++++ 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 3a9f69626a..5053e7ecae 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-01-09 Daniel Jacobowitz + + * gdb.ada/catch_ex.exp: Call unsupported and stop if the runtime + has no debug information. + 2007-01-09 Daniel Jacobowitz * gdb.base/annota1.exp: Remove extra send_gdb. diff --git a/gdb/testsuite/gdb.ada/catch_ex.exp b/gdb/testsuite/gdb.ada/catch_ex.exp index 603909ce0e..2ef15a7143 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" \ -- 2.34.1