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 2f5620f2d07919c1d9d56d4d0722531fbedc831e..ec8c26c98fdfbf27b080c87ab8e44ec95ec5cdf6 100644 (file)
--- 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 4febc04264b9a6195be2ff30640d82fc60c95bd2..8cf4cea564cda98e7ad341695512a9eee81020dd 100644 (file)
--- 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;