trans.c (elaborate_all_entities_for_package): Also do not elaborate Itypes.

	* gcc-interface/trans.c (elaborate_all_entities_for_package): Also do
	not elaborate Itypes.

From-SVN: r237129

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 92292bea058560a9b379f60473beae9c3b4231cc..5ffc2486a38475192db67d6f82ed3691cf687345 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2016-06-06  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/trans.c (elaborate_all_entities_for_package): Also do
+       not elaborate Itypes.
+
 2016-06-06  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/utils.c (gnat_internal_attribute_table): Add support

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index c08be5454ae08809690d619f98e88ea4bcbdf68c..fb17cb2c3812f862472c5c43692391d7b70c435e 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -8460,6 +8460,8 @@ elaborate_all_entities_for_package (Entity_Id gnat_package)
        continue;
       if (IN (kind, Subprogram_Kind) && Is_Intrinsic_Subprogram (gnat_entity))
        continue;
+      if (Is_Itype (gnat_entity))
+       continue;
 
       /* Skip named numbers.  */
       if (IN (kind, Named_Kind))