r266114 - in /trunk/gcc: ada/ChangeLog ada/exp_...

[pmderodat@gcc.gnu.org]

Author: pmderodat
Date: Wed Nov 14 11:40:41 2018
New Revision: 266114

URL: https://gcc.gnu.org/viewcvs?rev=266114&root=gcc&view=rev
Log:
[Ada] Crash on tagged equality

This patch corrects the retrieval of the equality function when it is
inherited from a parent tagged type.

2018-11-14  Hristian Kirtchev  <kirtchev@adacore.com>

gcc/ada/

	* exp_ch4.adb (Expand_N_Op_Eq): Remove duplicated code and use
	routine Find_Equality instead.
	(Find_Equality): New routine.

gcc/testsuite/

	* gnat.dg/equal4.adb, gnat.dg/equal4.ads,
	gnat.dg/equal4_controlled_filter.ads,
	gnat.dg/equal4_full_selector_filter.ads,
	gnat.dg/equal4_smart_pointers.ads: New testcase.

Added:
    trunk/gcc/testsuite/gnat.dg/equal4.adb
    trunk/gcc/testsuite/gnat.dg/equal4.ads
    trunk/gcc/testsuite/gnat.dg/equal4_controlled_filter.ads
    trunk/gcc/testsuite/gnat.dg/equal4_full_selector_filter.ads
    trunk/gcc/testsuite/gnat.dg/equal4_smart_pointers.ads
Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/exp_ch4.adb
    trunk/gcc/testsuite/ChangeLog