diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2008-08-20 11:02:51 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 13:02:51 +0200 |
| commit | 2af92e28f0612424edab29a57a22f1b9609dad6e (patch) | |
| tree | c7e676ade7a5304276c3b334bd132222b6b62905 /gcc/ada/exp_ch6.adb | |
| parent | 6e60703f413e6c124eeb17d751dc9a9bdd89443e (diff) | |
| download | gcc-2af92e28f0612424edab29a57a22f1b9609dad6e.zip gcc-2af92e28f0612424edab29a57a22f1b9609dad6e.tar.gz gcc-2af92e28f0612424edab29a57a22f1b9609dad6e.tar.bz2 | |
sem_aggr.adb, [...] (Valid_Ancestor): Resolve confusion between partial and full views of an ancestor of the context...
2008-08-20 Ed Schonberg <schonberg@adacore.com>
* sem_aggr.adb, sem_type.adb, exp_ch9.ads, einfo.ads,
exp_ch6.adb, exp_aggr.adb (Valid_Ancestor): Resolve
confusion between partial and full views of an ancestor of the context
type when the parent is a private extension declared in a parent unit,
and full views are available for the context type.
From-SVN: r139269
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 4c3f3da..faefb52 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -4394,6 +4394,14 @@ package body Exp_Ch6 is Prot_Id : Entity_Id; begin + -- If the subprogram is a function with an anonymous access + -- to protected subprogram, it must be expanded to create + -- its equivalent type. + + -- if Ekind (Typ) = E_Anonymous_Access_Protected_Subprogram_Type then + -- Expand_Access_Protected_Subprogram_Type (N, Typ); + -- end if; + -- Deal with case of protected subprogram. Do not generate protected -- operation if operation is flagged as eliminated. |