diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-05-16 11:11:47 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-05-16 11:11:47 +0000 |
| commit | 748364917886ca862a46fbf06d1a9f6496e8a9d1 (patch) | |
| tree | 1f9ea8a30fc812ff9bb2af0fd814e3a18167a243 /gcc/ada | |
| parent | 7214e56d097e2f6f8a554ada7f53af4ca28e2fa7 (diff) | |
| download | gcc-748364917886ca862a46fbf06d1a9f6496e8a9d1.tar.gz | |
* gcc-interface/trans.c (elaborate_all_entities_for_package): Also skip
formal objects.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@236280 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2f5620f2d07..ec8c26c98fd 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 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 (Scalar_Storage_Order): Adjust restriction for packed array types. * einfo.ads (Is_Bit_Packed_Array): Adjust description. 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; |