re PR ada/48844 (ICE on assignment of aggregate with discriminated record type)
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 5 May 2011 16:22:16 +0000 (16:22 +0000)
committerEric Botcazou <ebotcazou@gcc.gnu.org>
Thu, 5 May 2011 16:22:16 +0000 (16:22 +0000)
commit805e60a08685ba76925f557137adf836f3b4a751
tree9e62d25cb4781804834463a8fd123bbf1c17f2bf
parent4eec64ff1d3b88cce8af5fe81787fd7e2e1cb371
re PR ada/48844 (ICE on assignment of aggregate with discriminated record type)

PR ada/48844
* gcc-interface/gigi.h (get_variant_part): Declare.
* gcc-interface/decl.c (get_variant_part): Make global.
* gcc-interface/utils2.c (find_common_type): Do not return T1 if the
types have the same constant size, are record types and T1 has a
variant part while T2 doesn't.

From-SVN: r173442
gcc/ada/ChangeLog
gcc/ada/gcc-interface/decl.c
gcc/ada/gcc-interface/gigi.h
gcc/ada/gcc-interface/utils2.c
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/discr29.adb [new file with mode: 0644]
gcc/testsuite/gnat.dg/discr29.ads [new file with mode: 0644]
gcc/testsuite/gnat.dg/discr30.adb [new file with mode: 0644]