Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

gdb.ada/info_exc.exp,mi_exc_info.exp: Use more unique exception name.

Browse Source 
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.
This commit is contained in:
Joel Brobecker
2013-11-15 21:46:34 +04:00
parent 75468c93c1
commit ee4a1c63da
7 changed files with 28 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
gdb/testsuite/ChangeLog
View File

@@ -1,3 +1,17 @@
2013-11-16 Joel Brobecker <brobecker@adacore.com>
* 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.
2013-11-15 Luis Machado <lgustavo@codesourcery.com>
* lib/mi-support.exp (mi_gdb_test): Expect different formats

10
gdb/testsuite/gdb.ada/info_exc.exp
View File

@@ -46,19 +46,19 @@ gdb_test "info exceptions" \
"storage_error: $hex" \
"tasking_error: $hex" \
".*" \
"const.aint_global_e: $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" \
[multi_line "All Ada exceptions matching regular expression \"global\":" \
"const.aint_global_e: $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_e: $hex"]
"const.aint_global_gdb_e: $hex"]

2
gdb/testsuite/gdb.ada/info_exc/const.ads
View File

@@ -14,5 +14,5 @@
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
package Const is
Aint_Global_E : exception;
Aint_Global_GDB_E : exception;
end Const;

2
gdb/testsuite/gdb.ada/info_exc/foo.adb
View File

@@ -16,5 +16,5 @@
with Const; use Const;
procedure Foo is
begin
raise Aint_Global_E;
raise Aint_Global_GDB_E;
end Foo;

10
gdb/testsuite/gdb.ada/mi_exc_info.exp
View File

@@ -39,18 +39,18 @@ mi_gdb_reinitialize_dir $srcdir/$subdir
mi_gdb_load ${binfile}
mi_gdb_test "-info-ada-exceptions" \
"\\^done,ada-exceptions={nr_rows=\"$decimal\",nr_cols=\"2\",hdr=\\\[{width=\"1\",alignment=\"-1\",col_name=\"name\",colhdr=\"Name\"},{width=\"1\",alignment=\"-1\",col_name=\"address\",colhdr=\"Address\"}\\\],body=\\\[{name=\"constraint_error\",address=\"$hex\"},{name=\"program_error\",address=\"$hex\"},{name=\"storage_error\",address=\"$hex\"},{name=\"tasking_error\",address=\"$hex\"},.*{name=\"const.aint_global_e\",address=\"$hex\"}.*\\\]}" \
"\\^done,ada-exceptions={nr_rows=\"$decimal\",nr_cols=\"2\",hdr=\\\[{width=\"1\",alignment=\"-1\",col_name=\"name\",colhdr=\"Name\"},{width=\"1\",alignment=\"-1\",col_name=\"address\",colhdr=\"Address\"}\\\],body=\\\[{name=\"constraint_error\",address=\"$hex\"},{name=\"program_error\",address=\"$hex\"},{name=\"storage_error\",address=\"$hex\"},{name=\"tasking_error\",address=\"$hex\"},.*{name=\"const.aint_global_gdb_e\",address=\"$hex\"}.*\\\]}" \
"-info-ada-exceptions"
mi_gdb_test "-info-ada-exceptions task" \
"\\^done,ada-exceptions={nr_rows=\"1\",nr_cols=\"2\",hdr=\\\[{width=\"1\",alignment=\"-1\",col_name=\"name\",colhdr=\"Name\"},{width=\"1\",alignment=\"-1\",col_name=\"address\",colhdr=\"Address\"}\\\],body=\\\[{name=\"tasking_error\",address=\"$hex\"}\\\]}" \
"-info-ada-exceptions task"
mi_gdb_test "-info-ada-exceptions global" \
"\\^done,ada-exceptions={nr_rows=\"1\",nr_cols=\"2\",hdr=\\\[{width=\"1\",alignment=\"-1\",col_name=\"name\",colhdr=\"Name\"},{width=\"1\",alignment=\"-1\",col_name=\"address\",colhdr=\"Address\"}\\\],body=\\\[{name=\"const.aint_global_e\",address=\"$hex\"}\\\]}" \
"-info-ada-exceptions global"
mi_gdb_test "-info-ada-exceptions global_gdb" \
"\\^done,ada-exceptions={nr_rows=\"1\",nr_cols=\"2\",hdr=\\\[{width=\"1\",alignment=\"-1\",col_name=\"name\",colhdr=\"Name\"},{width=\"1\",alignment=\"-1\",col_name=\"address\",colhdr=\"Address\"}\\\],body=\\\[{name=\"const.aint_global_gdb_e\",address=\"$hex\"}\\\]}" \
"-info-ada-exceptions global_gdb"
mi_gdb_test "-info-ada-exceptions const.aint" \
"\\^done,ada-exceptions={nr_rows=\"2\",nr_cols=\"2\",hdr=\\\[{width=\"1\",alignment=\"-1\",col_name=\"name\",colhdr=\"Name\"},{width=\"1\",alignment=\"-1\",col_name=\"address\",colhdr=\"Address\"}\\\],body=\\\[{name=\"constraint_error\",address=\"$hex\"},{name=\"const.aint_global_e\",address=\"$hex\"}\\\]}" \
"\\^done,ada-exceptions={nr_rows=\"2\",nr_cols=\"2\",hdr=\\\[{width=\"1\",alignment=\"-1\",col_name=\"name\",colhdr=\"Name\"},{width=\"1\",alignment=\"-1\",col_name=\"address\",colhdr=\"Address\"}\\\],body=\\\[{name=\"constraint_error\",address=\"$hex\"},{name=\"const.aint_global_gdb_e\",address=\"$hex\"}\\\]}" \
"-info-ada-exceptions const.aint"

2
gdb/testsuite/gdb.ada/mi_exc_info/const.ads
View File

@@ -14,5 +14,5 @@
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
package Const is
Aint_Global_E : exception;
Aint_Global_GDB_E : exception;
end Const;

2
gdb/testsuite/gdb.ada/mi_exc_info/foo.adb
View File

@@ -16,5 +16,5 @@
with Const; use Const;
procedure Foo is
begin
raise Aint_Global_E;
raise Aint_Global_GDB_E;
end Foo;