re PR ada/15802 (ICE at expr.c:6764 (placeholder mechanism))
authorEric Botcazou <ebotcazou@adacore.com>
Fri, 15 Sep 2006 18:32:24 +0000 (18:32 +0000)
committerEric Botcazou <ebotcazou@gcc.gnu.org>
Fri, 15 Sep 2006 18:32:24 +0000 (18:32 +0000)
commit41d9adc7fac0487106d15207d2707fa5b53c5bbd
tree713ceb7365b457e0afcdc02615f5bdf6950ed678
parent7ee51a34b8164864b8ed4274441ddc000df7482c
re PR ada/15802 (ICE at expr.c:6764 (placeholder mechanism))

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.

From-SVN: r116981
gcc/ada/ChangeLog
gcc/ada/decl.c
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/specs/double_record_extension1.ads [new file with mode: 0644]
gcc/testsuite/gnat.dg/specs/double_record_extension2.ads [new file with mode: 0644]