| commit | 6828c3bf75744ce70389277df09119d137c47e5c | |
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Fri, 15 Sep 2006 18:32:24 +0000 (15 18:32 +0000) | ||
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Fri, 15 Sep 2006 18:32:24 +0000 (15 18:32 +0000) | ||
| tree | 713ceb7365b457e0afcdc02615f5bdf6950ed678 | treesnapshot (tar.gz zip) |
| parent | 066cf272d866816a638ffa7af8e05a38b0901031 | commitdiff |
PR ada/15802
* decl.c (same_discriminant_p): New static function.
(gnat_to_gnu_entity) <E_Record_Type>: When there is a parent
subtype and we have discriminants, fix up the COMPONENT_REFs
for the discriminants to make them reference the corresponding
fields of the parent subtype after it has been built.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@116981 138bc75d-0d04-0410-961f-82ee72b054a4
* decl.c (same_discriminant_p): New static function.
(gnat_to_gnu_entity) <E_Record_Type>: When there is a parent
subtype and we have discriminants, fix up the COMPONENT_REFs
for the discriminants to make them reference the corresponding
fields of the parent subtype after it has been built.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@116981 138bc75d-0d04-0410-961f-82ee72b054a4
| gcc/ada/ChangeLog | diffblobblamehistory | |
| gcc/ada/decl.c | diffblobblamehistory | |
| gcc/testsuite/ChangeLog | diffblobblamehistory | |
| gcc/testsuite/gnat.dg/specs/double_record_extension1.ads | [new file with mode: 0644] | blob |
| gcc/testsuite/gnat.dg/specs/double_record_extension2.ads | [new file with mode: 0644] | blob |