diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-08-16 16:03:30 +0200 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-08-29 15:06:28 +0200 |
| commit | d506247921d11b8013e99f5729385a9dd300b575 (patch) | |
| tree | 90f5d3db8a6e61eef390356151eab9595c2ab806 /gcc/gimple-loop-jam.cc | |
| parent | a50584b8a63b57913d0f213b51403953f799c962 (diff) | |
| download | gcc-d506247921d11b8013e99f5729385a9dd300b575.zip gcc-d506247921d11b8013e99f5729385a9dd300b575.tar.gz gcc-d506247921d11b8013e99f5729385a9dd300b575.tar.bz2 | |
ada: Fix internal error on concatenation of discriminant-dependent component
This only occurs with optimization enabled, but the expanded code is always
wrong because it reuses the formal parameter of an initialization procedure
associated with a discriminant (a discriminal in GNAT parlance) outside of
the initialization procedure.
gcc/ada/
* checks.adb (Selected_Length_Checks.Get_E_Length): For a
component of a record with discriminants and if the expression is
a selected component, try to build an actual subtype from its
prefix instead of from the discriminal.
Diffstat (limited to 'gcc/gimple-loop-jam.cc')
0 files changed, 0 insertions, 0 deletions