diff options
| author | Marc Poulhiès <poulhies@adacore.com> | 2023-05-22 13:59:05 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-06-20 09:30:48 +0200 |
| commit | ca27b8a030746d09ea61de62e1f3bc1337ebe737 (patch) | |
| tree | 0ea947306c1a1e84f44fdd46e1c4f9a2586af918 /libcpp/directives.cc | |
| parent | 2071134b54aa4f9af01d7d6212dacf7747168448 (diff) | |
| download | gcc-ca27b8a030746d09ea61de62e1f3bc1337ebe737.zip gcc-ca27b8a030746d09ea61de62e1f3bc1337ebe737.tar.gz gcc-ca27b8a030746d09ea61de62e1f3bc1337ebe737.tar.bz2 | |
ada: Fix type derivation of subtype of derived type
Deriving from a subtype of a derived type of a private type, whose full
view is itself a derived type of a discriminated record with a known
discriminatant was failing with the error message:
invalid constraint: type has no discriminant
The compiler needs to use the full view to be able to constrain the
type.
Also fix minor typo in comments.
gcc/ada/
* sem_ch3.adb (Build_Derived_Record_Type): Use full view as
Parent_Base if needed.
Diffstat (limited to 'libcpp/directives.cc')
0 files changed, 0 insertions, 0 deletions