This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[commit] UNSUPPORTED for gdb.ada/catch_ex.exp
- From: Daniel Jacobowitz <drow at false dot org>
- To: gdb-patches at sourceware dot org
- Date: Tue, 9 Jan 2007 22:47:12 -0500
- Subject: [commit] UNSUPPORTED for gdb.ada/catch_ex.exp
As Joel and I discussed on gdb@. The Debian shared libgnat does not
have the information we need to run these tests - but a separate debug
package for that is in the works.
Tested on x86_64-pc-linux-gnu and committed.
--
Daniel Jacobowitz
CodeSourcery
2007-01-09 Daniel Jacobowitz <dan@codesourcery.com>
* gdb.ada/catch_ex.exp: Call unsupported and stop if the runtime
has no debug information.
Index: gdb.ada/catch_ex.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/catch_ex.exp,v
retrieving revision 1.1
diff -u -p -r1.1 catch_ex.exp
--- gdb.ada/catch_ex.exp 4 Jan 2007 05:39:01 -0000 1.1
+++ gdb.ada/catch_ex.exp 10 Jan 2007 03:45:18 -0000
@@ -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" \