diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2018-11-14 11:40:41 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-11-14 11:40:41 +0000 |
| commit | e1a20c09aac4149f3099cfc313bbfcd6672064bc (patch) | |
| tree | 32eefaf53c2afd9188b84c7a9a6c101e6db35192 /gcc/expr.h | |
| parent | cacf87ce6c6f7c35c9e10ce635076481912ba092 (diff) | |
| download | gcc-e1a20c09aac4149f3099cfc313bbfcd6672064bc.zip gcc-e1a20c09aac4149f3099cfc313bbfcd6672064bc.tar.gz gcc-e1a20c09aac4149f3099cfc313bbfcd6672064bc.tar.bz2 | |
[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.
From-SVN: r266114
Diffstat (limited to 'gcc/expr.h')
0 files changed, 0 insertions, 0 deletions