diff options
author | Tristan Gingold <gingold@adacore.com> | 2013-10-14 14:24:44 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-14 16:24:44 +0200 |
commit | 23e0b03aa69a73312b9892a1cd298c284bef0fba (patch) | |
tree | 49b21f81e73b8c707f499384c92072c63f7055b0 | |
parent | 9f2a75d355fc63551d36241ae4ff58ec23cc8fed (diff) | |
download | gcc-23e0b03aa69a73312b9892a1cd298c284bef0fba.zip gcc-23e0b03aa69a73312b9892a1cd298c284bef0fba.tar.gz gcc-23e0b03aa69a73312b9892a1cd298c284bef0fba.tar.bz2 |
trans.c: Synchronize declarations of other/all others between gigi and the runtime.
* gcc-interface/trans.c: Synchronize declarations of other/all others
between gigi and the runtime.
From-SVN: r203565
-rw-r--r-- | gcc/ada/ChangeLog | 2 | ||||
-rw-r--r-- | gcc/ada/gcc-interface/trans.c | 12 |
2 files changed, 8 insertions, 6 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6818ca3..e9fe2cd 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -5,6 +5,8 @@ (set_exception_parameter_decl): New macro. * gcc-interface/trans.c (gigi): Initialize set_exception_parameter_decl. (Exception_Handler_to_gnu_zcx): Initialize the choice parameter. + * gcc-interface/trans.c: Synchronize declarations of other/all others + between gigi and the runtime. 2013-10-14 Robert Dewar <dewar@adacore.com> diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index ff1f22d..1d7808b 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -641,20 +641,20 @@ gigi (Node_Id gnat_root, int max_gnat_node, int number_name ATTRIBUTE_UNUSED, others_decl = create_var_decl (get_identifier ("OTHERS"), get_identifier ("__gnat_others_value"), - integer_type_node, NULL_TREE, true, false, true, false, - NULL, Empty); + unsigned_char_type_node, + NULL_TREE, true, false, true, false, NULL, Empty); all_others_decl = create_var_decl (get_identifier ("ALL_OTHERS"), get_identifier ("__gnat_all_others_value"), - integer_type_node, NULL_TREE, true, false, true, false, - NULL, Empty); + unsigned_char_type_node, + NULL_TREE, true, false, true, false, NULL, Empty); unhandled_others_decl = create_var_decl (get_identifier ("UNHANDLED_OTHERS"), get_identifier ("__gnat_unhandled_others_value"), - integer_type_node, NULL_TREE, true, false, true, false, - NULL, Empty); + unsigned_char_type_node, + NULL_TREE, true, false, true, false, NULL, Empty); main_identifier_node = get_identifier ("main"); |