diff options
| author | Tom Tromey <tromey@adacore.com> | 2019-07-10 11:05:20 -0600 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2019-07-10 14:48:53 -0600 |
| commit | f06f1252b0b8ef20adb4296faaf8293c9d36f615 (patch) | |
| tree | 3fd450906d0d4f71e257283f03d6ae3558a2ac36 /gdb/testsuite/gdb.ada/catch_ex.exp | |
| parent | 7a5d944b9e86bf73ae5acaa984df24d175b80f68 (diff) | |
| download | gdb-f06f1252b0b8ef20adb4296faaf8293c9d36f615.zip gdb-f06f1252b0b8ef20adb4296faaf8293c9d36f615.tar.gz gdb-f06f1252b0b8ef20adb4296faaf8293c9d36f615.tar.bz2 | |
Change Ada catchpoints to be bp_catchpoint
Like Pedro's earlier patches to change catchpoint to be of type
bp_catchpoint, this changes the Ada catchpoints to follow.
Tested on x86-64 Fedora 29.
gdb/ChangeLog
2019-07-10 Tom Tromey <tromey@adacore.com>
* ada-lang.h (is_ada_exception_catchpoint): Declare.
* breakpoint.c (init_ada_exception_breakpoint): Register as
bp_catchpoint.
(print_one_breakpoint_location, print_one_breakpoint): Use
is_ada_exception_catchpoint.
* ada-lang.c (class ada_catchpoint_location): Pass
bp_loc_software_breakpoint to bp_location constructor.
(is_ada_exception_catchpoint): New function.
gdb/testsuite/ChangeLog
2019-07-10 Tom Tromey <tromey@adacore.com>
* gdb.ada/mi_ex_cond.exp: Update expected results.
* gdb.ada/mi_catch_ex_hand.exp: Update expected results.
* gdb.ada/mi_catch_ex.exp: Update expected results.
* gdb.ada/mi_catch_assert.exp: Update expected results.
* gdb.ada/catch_ex.exp (catch_exception_info)
(catch_exception_entry, catch_assert_entry)
(catch_unhandled_entry): Update.
* gdb.ada/catch_assert_if.exp: Update expected results.
Diffstat (limited to 'gdb/testsuite/gdb.ada/catch_ex.exp')
| -rw-r--r-- | gdb/testsuite/gdb.ada/catch_ex.exp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gdb/testsuite/gdb.ada/catch_ex.exp b/gdb/testsuite/gdb.ada/catch_ex.exp index 772100a..5a560c1 100644 --- a/gdb/testsuite/gdb.ada/catch_ex.exp +++ b/gdb/testsuite/gdb.ada/catch_ex.exp @@ -32,7 +32,7 @@ set sp "\[ \t\]*" set info_break_header "Num${sp}Type${sp}Disp${sp}Enb${sp}Address${sp}What" set catch_exception_info \ - "$any_nb${sp}breakpoint${sp}keep${sp}y${sp}$any_addr${sp}all Ada exceptions" + "$any_nb${sp}catchpoint${sp}keep${sp}y${sp}all Ada exceptions" #################################### # 1. Try catching all exceptions. # @@ -105,11 +105,11 @@ gdb_test "catch exception unhandled" \ "insert catchpoint on unhandled exceptions" set catch_exception_entry \ - "$any_nb${sp}breakpoint${sp}keep${sp}y${sp}$any_addr${sp}\`Program_Error' Ada exception" + "$any_nb${sp}catchpoint${sp}keep${sp}y${sp}\`Program_Error' Ada exception" set catch_assert_entry \ - "$any_nb${sp}breakpoint${sp}keep${sp}y${sp}$any_addr${sp}failed Ada assertions" + "$any_nb${sp}catchpoint${sp}keep${sp}y${sp}failed Ada assertions" set catch_unhandled_entry \ - "$any_nb${sp}breakpoint${sp}keep${sp}y${sp}$any_addr${sp}unhandled Ada exceptions" + "$any_nb${sp}catchpoint${sp}keep${sp}y${sp}unhandled Ada exceptions" gdb_test "info break" \ "$info_break_header$eol.*$catch_exception_entry$eol$catch_assert_entry$eol$catch_unhandled_entry" \ |