diff options
| author | Javier Miranda <miranda@adacore.com> | 2018-05-31 10:45:51 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-31 10:45:51 +0000 |
| commit | 59f7c7167a75bdb3992f2c7fb3b358124aea8404 (patch) | |
| tree | 198660b878b5f1653ab3ea397774c2c1676ced74 /gcc/ada/gcc-interface/utils.c | |
| parent | 01f481c77e01414e75fc26adead0d143b27df85d (diff) | |
| download | gcc-59f7c7167a75bdb3992f2c7fb3b358124aea8404.zip gcc-59f7c7167a75bdb3992f2c7fb3b358124aea8404.tar.gz gcc-59f7c7167a75bdb3992f2c7fb3b358124aea8404.tar.bz2 | |
[Ada] Fix compiler crash for tagged private types
2018-05-31 Javier Miranda <miranda@adacore.com>
gcc/ada/
* sem_util.ads, sem_util.adb (Find_Primitive_Eq): New subprogram.
* exp_ch4.adb (Expand_Composite_Equality): Use the new subprogram
Find_Primitive_Eq to search for the primitive of types whose underlying
type is a tagged type.
gcc/testsuite/
* gnat.dg/tagged1.adb, gnat.dg/tagged1.ads: New testcase.
From-SVN: r260997
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
0 files changed, 0 insertions, 0 deletions