From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 6 Jun 2016 09:55:44 +0000 (+0000)
Subject: trans.c (elaborate_all_entities_for_package): Also do not elaborate Itypes.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f8a9b81f106b8e37893d643f93458195702c6c98;p=gcc.git

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 92292bea058..5ffc2486a38 100644
--- 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 c08be5454ae..fb17cb2c381 100644
--- 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))