| commit | efa129331c5ceb9937c990f45f3bfd447cbe290e | |
| author | Ed Schonberg <schonberg@adacore.com> | |
| Tue, 17 Jul 2018 08:03:49 +0000 (17 08:03 +0000) | ||
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | |
| Tue, 17 Jul 2018 08:03:49 +0000 (17 08:03 +0000) | ||
| tree | fb1825688c2011f39a4dc73eb1dae94e9810d05c | treesnapshot (tar.gz zip) |
| parent | 6a4f3b312e2aa6016963a6befc986b93465be968 | commitdiff |
[Ada] Fix handling of inherited discriminant constraints
2018-07-17 Ed Schonberg <schonberg@adacore.com>
gcc/ada/
* sem_util.adb (Gather_Components): A discriminant of an ancestor may
have been constrained by a later ancestor, so when looking for the
value of that hidden discriminant we must examine the stored constraint
of other ancestors than the immediate parent type.
gcc/testsuite/
* gnat.dg/discr54.adb, gnat.dg/discr54_pkg.ads: New testcase.
From-SVN: r262767
2018-07-17 Ed Schonberg <schonberg@adacore.com>
gcc/ada/
* sem_util.adb (Gather_Components): A discriminant of an ancestor may
have been constrained by a later ancestor, so when looking for the
value of that hidden discriminant we must examine the stored constraint
of other ancestors than the immediate parent type.
gcc/testsuite/
* gnat.dg/discr54.adb, gnat.dg/discr54_pkg.ads: New testcase.
From-SVN: r262767
| gcc/ada/ChangeLog | diffblobblamehistory | |
| gcc/ada/sem_util.adb | diffblobblamehistory | |
| gcc/testsuite/ChangeLog | diffblobblamehistory | |
| gcc/testsuite/gnat.dg/discr54.adb | [new file with mode: 0644] | blob |
| gcc/testsuite/gnat.dg/discr54_pkg.ads | [new file with mode: 0644] | blob |