| commit | 7cec010e49d84d5aad737fc040dc693615f81e78 | |
| author | Ed Schonberg <schonberg@adacore.com> | |
| Mon, 14 Jun 2010 15:04:40 +0000 (14 15:04 +0000) | ||
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | |
| Mon, 14 Jun 2010 15:04:40 +0000 (14 17:04 +0200) | ||
| tree | 2b48b2d75c9ca98f2e6f0d8bf9147ab9126ed6bf | treesnapshot (tar.gz zip) |
| parent | 9fc91982f25c892710a0a8a00ab9d69a30481285 | commitdiff |
sem_ch3.adb (Build_Derived_Record_Type): if derived type is an anonymous base generated when...
2010-06-14 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Build_Derived_Record_Type): if derived type is an
anonymous base generated when the parent is a constrained discriminated
type, propagate interface list to first subtype because it may appear
in a current instance within the extension part of the derived type
declaration, and its own subtype declaration has not been elaborated
yet.
* exp_disp.adb (Build_Interface_Thunk): Use base type of formal to
determine whether it has the controlling type.
From-SVN: r160748
2010-06-14 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Build_Derived_Record_Type): if derived type is an
anonymous base generated when the parent is a constrained discriminated
type, propagate interface list to first subtype because it may appear
in a current instance within the extension part of the derived type
declaration, and its own subtype declaration has not been elaborated
yet.
* exp_disp.adb (Build_Interface_Thunk): Use base type of formal to
determine whether it has the controlling type.
From-SVN: r160748
| gcc/ada/ChangeLog | diffblobblamehistory | |
| gcc/ada/exp_disp.adb | diffblobblamehistory | |
| gcc/ada/sem_ch3.adb | diffblobblamehistory |