From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 16 May 2016 11:11:47 +0000 (+0000)
Subject: trans.c (elaborate_all_entities_for_package): Also skip formal objects.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=cce309d7ed3fb81d6b587ae06dfb9561039fb8ad;p=gcc.git

trans.c (elaborate_all_entities_for_package): Also skip formal objects.

	* gcc-interface/trans.c (elaborate_all_entities_for_package): Also skip
	formal objects.

From-SVN: r236280
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2f5620f2d07..ec8c26c98fd 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2016-05-16  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/trans.c (elaborate_all_entities_for_package): Also skip
+	formal objects.
+
 2016-05-16  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* doc/gnat_rm/implementation_defined_attributes.rst
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 4febc04264b..8cf4cea564c 100644
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -8446,6 +8446,10 @@ elaborate_all_entities_for_package (Entity_Id gnat_package)
       if (IN (kind, Generic_Unit_Kind))
 	continue;
 
+      /* Skip formal objects.  */
+      if (IN (kind, Formal_Object_Kind))
+	continue;
+
       /* Skip package bodies.  */
       if (kind == E_Package_Body)
 	continue;