diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2009-04-17 13:17:12 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-17 15:17:12 +0200 |
| commit | 39f346aaa68081e3f68cb696d63e2898074d0645 (patch) | |
| tree | 7e8338d0948f7ff0611cbd9b15ddfcc3aff692b0 /gcc/tree-ssa-alias.c | |
| parent | 8c64de1e7d8a53dc87dc64ccfe36124c0616faf2 (diff) | |
| download | gcc-39f346aaa68081e3f68cb696d63e2898074d0645.zip gcc-39f346aaa68081e3f68cb696d63e2898074d0645.tar.gz gcc-39f346aaa68081e3f68cb696d63e2898074d0645.tar.bz2 | |
einfo.ads, einfo.adb: New attribute Underlying_Record_View...
2009-04-17 Ed Schonberg <schonberg@adacore.com>
* einfo.ads, einfo.adb: New attribute Underlying_Record_View, to handle
type extensions whose parent is a type with unknown discriminants.
* exp_aggr.adb (Expand_Record_Aggregate): If the type of an extension
aggregate has unknown discriminants, use the Underlying_Record_View to
obtain the discriminants of the ancestor part.
* exp_disp.adb (Build_Dispatch_Tables): Types that are
Underlying_Record_Views share the dispatching information of the
original record extension.
* exp_ch3.adb (Expand_Record_Extension): If the type inherits unknown
discriminants, propagate dispach table information to the
Underlying_Record_View.
* sem_ch3.adb (Build_Derived_Private_Type): If parent type has unknown
discriminants and declaration is not a completion, generate
Underlying_Record_View to provide proper discriminant information to
the front-end and to gigi.
From-SVN: r146264
Diffstat (limited to 'gcc/tree-ssa-alias.c')
0 files changed, 0 insertions, 0 deletions