From: drow <drow>
Date: Wed, 10 Jan 2007 03:46:03 +0000 (+0000)
Subject: 	* gdb.ada/catch_ex.exp: Call unsupported and stop if the runtime
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=d06b77faaa17b4678b48d7853d1ae17b90180c5f;p=pf3gnuchains%2Fpf3gnuchains3x.git

	* gdb.ada/catch_ex.exp: Call unsupported and stop if the runtime
	has no debug information.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 3a9f69626a..5053e7ecae 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 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" \