ada: Fix internal error on misaligned component with variable nominal size
commit140e20f69754bd04b7ee47518d065c1338780c36
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 7 Sep 2023 08:53:39 +0000 (7 10:53 +0200)
committerMarc Poulhiès <poulhies@adacore.com>
Fri, 15 Sep 2023 13:01:30 +0000 (15 15:01 +0200)
tree56816417549c49391ff47485b5f87c6645f26f66
parentab246c16eeb82a9ba21be464eacc7c2aaca5f60c
ada: Fix internal error on misaligned component with variable nominal size

The back-end cannot handle this kind of components even when they are small.

gcc/ada/

* exp_util.adb (Component_May_Be_Bit_Aligned): Do not return false
for a small component of a record type with a variant part.
gcc/ada/exp_util.adb