diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2023-03-21 09:46:57 +0100 |
---|---|---|
committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-26 09:29:16 +0200 |
commit | 16c320507774ca38e0eb3d1c4116c9dcb3f2e598 (patch) | |
tree | 1232c65e52fbc5f9bbfb24d62caed66d7d2cc22c /gcc/ada/sem_aggr.adb | |
parent | bdda3d2960f884488cf9fcc817a541e709ddb7e7 (diff) | |
download | gcc-16c320507774ca38e0eb3d1c4116c9dcb3f2e598.zip gcc-16c320507774ca38e0eb3d1c4116c9dcb3f2e598.tar.gz gcc-16c320507774ca38e0eb3d1c4116c9dcb3f2e598.tar.bz2 |
ada: Fix iteration over component items with pragmas
Component items in a record declaration might include pragmas, which
must be ignored when detecting components with default expressions.
More a code cleanup than a bugfix, as it only affects artificial corner
cases. Found while fixing missing legality checks for variant component
declarations.
gcc/ada/
* sem_ch3.adb (Check_CPP_Type_Has_No_Defaults): Iterate with
First_Non_Pragma and Next_Non_Pragma.
* exp_dist.adb (Append_Record_Traversal): Likewise.
Diffstat (limited to 'gcc/ada/sem_aggr.adb')
0 files changed, 0 insertions, 0 deletions