diff options
author | Joel Brobecker <brobecker@gnat.com> | 2011-04-01 16:59:58 +0000 |
---|---|---|
committer | Joel Brobecker <brobecker@gnat.com> | 2011-04-01 16:59:58 +0000 |
commit | 956a9fb9fb6573a18dca4726f8c2ae083bc4a508 (patch) | |
tree | a1aafd7d3745dde014c5fdaa0ba243f889735a4f /gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb | |
parent | d0c4d64237a01d1f05677ebe7bf69290e2fef357 (diff) | |
download | fsf-binutils-gdb-956a9fb9fb6573a18dca4726f8c2ae083bc4a508.zip fsf-binutils-gdb-956a9fb9fb6573a18dca4726f8c2ae083bc4a508.tar.gz fsf-binutils-gdb-956a9fb9fb6573a18dca4726f8c2ae083bc4a508.tar.bz2 |
improve Ada exception catchpoint MI notification
This rewrites the code generating the Ada exception catchpoint hit
notification for both the GDB/MI case as well as the non-MI case,
by using the relevant ui_out_* functions to generate the output.
the MI notifications for Ada exception catchpoints now include
the stop reason, and the breakpoint "disp", much like other breakpoint
events do. It also introduces a new field "exception-name" for
exception catchpoints (excluding "failed assertion catchpoints,
where we just want to know that it was a failed assertion).
gdb/ChangeLog:
* breakpoint.h (bpdisp_text): Add declaration.
* breakpoint.c (bpdisp_text): Make non-static.
* ada-lang.c: #include "mi/mi-common.h".
(print_it_exception): Rewrite to improve GDB/MI output.
gdb/doc/ChangeLog:
* gdb.texinfo (GDB/MI Ada Exception Information): Document
the "exception-name" field in the *stopped async record.
gdb/testsuite/ChangeLog:
* gdb.ada/mi_catch_ex: New testcase.
Diffstat (limited to 'gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb')
-rw-r--r-- | gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb b/gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb new file mode 100644 index 0000000..a2eceac --- /dev/null +++ b/gdb/testsuite/gdb.ada/mi_catch_ex/foo.adb @@ -0,0 +1,43 @@ +-- Copyright 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. +-- +-- This program is free software; you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation; either version 3 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program. If not, see <http://www.gnu.org/licenses/>. + +procedure Foo is +begin + + begin + raise Constraint_Error; -- SPOT1 + exception + when others => + null; + end; + + begin + raise Program_Error; -- SPOT2 + exception + when others => + null; + end; + + begin + pragma Assert (False); -- SPOT3 + null; + exception + when others => + null; + end; + + raise Constraint_Error; -- SPOT4 + +end Foo; |