diff options
| author | Olivier Hainque <hainque@adacore.com> | 2007-12-07 15:52:43 +0000 |
|---|---|---|
| committer | Olivier Hainque <hainque@gcc.gnu.org> | 2007-12-07 15:52:43 +0000 |
| commit | ebe0660b89b13040e1b3507352a8b131133a2173 (patch) | |
| tree | 157a679ae7ae36709054ce171092a1ad142cbfcb /gcc/ada/decl.c | |
| parent | 458440a9d0674879688021e4cacd04aa4d722fed (diff) | |
| download | gcc-ebe0660b89b13040e1b3507352a8b131133a2173.zip gcc-ebe0660b89b13040e1b3507352a8b131133a2173.tar.gz gcc-ebe0660b89b13040e1b3507352a8b131133a2173.tar.bz2 | |
decl.c (gnat_to_gnu_entity): When computing the designated full view...
2007-12-07 Olivier Hainque <hainque@adacore.com>
ada/
* decl.c (gnat_to_gnu_entity) <case E_Access_Type>: When computing
the designated full view, only follow a second level Full_View link
for Non_Limited_Views of from_limited_with references.
testsuite/
* gnat.dg/tamdt*.ad?: Support for ...
* gnat.dg/test_tamdt.adb: New test.
From-SVN: r130679
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 1a8cc77..5fcc27d 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -2996,7 +2996,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) : (IN (Ekind (gnat_desig_equiv), Incomplete_Or_Private_Kind) ? Full_View (gnat_desig_equiv) : Empty)); Entity_Id gnat_desig_full_direct - = ((Present (gnat_desig_full_direct_first) + = ((is_from_limited_with + && Present (gnat_desig_full_direct_first) && IN (Ekind (gnat_desig_full_direct_first), Private_Kind)) ? Full_View (gnat_desig_full_direct_first) : gnat_desig_full_direct_first); |