mirror of
https://github.com/bminor/binutils-gdb.git
synced 2025-12-25 16:57:52 +00:00
ee4a1c63da
In the case where the GNAT runtime was built with full debugging info,
several of the exceptions defined there might have a name contain
the word "global". To make this less likely, this patch renames
the exception name, replacing "Global" by "Global_GDB". It still
keeps the exeption name relatively short, while it is unlikely that
the GNAT runtime has an exception whose name explicitly mentions GDB,
and even less likely that it contains "Global_GDB".
gdb/testsuite/ChangeLog:
* info_exc/const.ads (Aint_Global_GDB_E): Renames Aint_Global_E.
* info_exc/foo.adb: Adjust to new exception name.
* info_exc.exp: Adjust after exception renaming in const.ads.
Update "info exception global" test to test "info exceptions
global_gdb" instead.
* mi_exc_info/const.ads (Aint_Global_GDB_E): Renames Aint_Global_E.
* mi_exc_info/foo.adb (Adjust to new exception name.
* mi_exc_info.exp: Adjust after exception renaming in const.ads.
Update "-info-ada-exceptions global" test to test
"-info-ada-exceptions global_gdb" instead.
65 lines
2.2 KiB
Plaintext
65 lines
2.2 KiB
Plaintext
# Copyright 2013 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/>.
|
|
|
|
load_lib "ada.exp"
|
|
|
|
standard_ada_testfile foo
|
|
|
|
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
|
|
return -1
|
|
}
|
|
|
|
# A convenience function that joins all the arguments together,
|
|
# with a regexp that matches zero-or-more end of lines in between
|
|
# each argument. This function is ideal to write the expected output
|
|
# of a GDB command that generates more than a couple of lines, as
|
|
# this allows us to write each line as a separate string, which is
|
|
# easier to read by a human being.
|
|
|
|
proc multi_line { args } {
|
|
return [join $args "\[\r\n\]*"]
|
|
}
|
|
|
|
clean_restart ${testfile}
|
|
|
|
if ![runto_main] then {
|
|
fail "Cannot run to main, testcase aborted"
|
|
return 0
|
|
}
|
|
|
|
gdb_test "info exceptions" \
|
|
[multi_line "All defined Ada exceptions:" \
|
|
"constraint_error: $hex" \
|
|
"program_error: $hex" \
|
|
"storage_error: $hex" \
|
|
"tasking_error: $hex" \
|
|
".*" \
|
|
"const.aint_global_gdb_e: $hex" \
|
|
".*"]
|
|
|
|
gdb_test "info exceptions task" \
|
|
[multi_line "All Ada exceptions matching regular expression \"task\":" \
|
|
"tasking_error: $hex"]
|
|
|
|
gdb_test "info exceptions global_gdb" \
|
|
[multi_line "All Ada exceptions matching regular expression \"global_gdb\":" \
|
|
"const.aint_global_gdb_e: $hex"]
|
|
|
|
gdb_test "info exceptions const.aint" \
|
|
[multi_line "All Ada exceptions matching regular expression \"const\\.aint\":" \
|
|
"constraint_error: $hex" \
|
|
"const.aint_global_gdb_e: $hex"]
|
|
|