http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48844
--- Comment #5 from Eric Botcazou <ebotcazou at gcc dot gnu.org> 2011-05-05 16:27:09 UTC --- Author: ebotcazou Date: Thu May 5 16:27:03 2011 New Revision: 173443 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=173443 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: branches/gcc-4_6-branch/gcc/testsuite/gnat.dg/discr29.adb - copied unchanged from r173442, trunk/gcc/testsuite/gnat.dg/discr29.adb branches/gcc-4_6-branch/gcc/testsuite/gnat.dg/discr29.ads - copied unchanged from r173442, trunk/gcc/testsuite/gnat.dg/discr29.ads branches/gcc-4_6-branch/gcc/testsuite/gnat.dg/discr30.adb - copied unchanged from r173442, trunk/gcc/testsuite/gnat.dg/discr30.adb Modified: branches/gcc-4_6-branch/gcc/ada/ChangeLog branches/gcc-4_6-branch/gcc/ada/gcc-interface/decl.c branches/gcc-4_6-branch/gcc/ada/gcc-interface/gigi.h branches/gcc-4_6-branch/gcc/ada/gcc-interface/utils2.c branches/gcc-4_6-branch/gcc/testsuite/ChangeLog