diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2016-05-16 11:11:47 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2016-05-16 11:11:47 +0000 |
| commit | cce309d7ed3fb81d6b587ae06dfb9561039fb8ad (patch) | |
| tree | 1f9ea8a30fc812ff9bb2af0fd814e3a18167a243 /gcc/ada/gcc-interface/trans.c | |
| parent | b3f7567260257b58a77a7c43ba9eb4840f2a09d8 (diff) | |
| download | gcc-cce309d7ed3fb81d6b587ae06dfb9561039fb8ad.zip gcc-cce309d7ed3fb81d6b587ae06dfb9561039fb8ad.tar.gz gcc-cce309d7ed3fb81d6b587ae06dfb9561039fb8ad.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 4febc04..8cf4cea 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; |