From cce309d7ed3fb81d6b587ae06dfb9561039fb8ad Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 16 May 2016 11:11:47 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/trans.c | 4 ++++ 2 files changed, 9 insertions(+) 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 + + * gcc-interface/trans.c (elaborate_all_entities_for_package): Also skip + formal objects. + 2016-05-16 Eric Botcazou * 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; -- 2.30.2