[Bug ada/48844] [4.6/4.7 regression] ICE on assignment of aggregate with discriminated record type

[ebotcazou at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48844

--- Comment #4 from Eric Botcazou <ebotcazou at gcc dot gnu.org> 2011-05-05 16:22:21 UTC ---
Author: ebotcazou
Date: Thu May  5 16:22:16 2011
New Revision: 173442

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=173442
Log:
    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.

Added:
    trunk/gcc/testsuite/gnat.dg/discr29.adb
    trunk/gcc/testsuite/gnat.dg/discr29.ads
    trunk/gcc/testsuite/gnat.dg/discr30.adb
Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/gcc-interface/decl.c
    trunk/gcc/ada/gcc-interface/gigi.h
    trunk/gcc/ada/gcc-interface/utils2.c
    trunk/gcc/testsuite/ChangeLog