diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-10-28 09:56:44 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-11-12 14:05:45 +0100 |
| commit | fbbfad022c2f5bc6b481b41bd32faa278e343474 (patch) | |
| tree | 71ade4f0f2cb34f7004cdb1f8da51a76e1de11e2 /gcc/ada | |
| parent | 2630b23534b8ccca71b149c8fe2dbd9aaa288c23 (diff) | |
| download | gcc-fbbfad022c2f5bc6b481b41bd32faa278e343474.zip gcc-fbbfad022c2f5bc6b481b41bd32faa278e343474.tar.gz gcc-fbbfad022c2f5bc6b481b41bd32faa278e343474.tar.bz2 | |
ada: Fix assertion failure on null aggregate in generic with pragma Ada_2022
This happens when the unit is instantiated in a non-Ada 2022 unit.
gcc/ada/ChangeLog:
PR ada/114127
* sem_aggr.adb (Is_Null_Aggregate): Replace test on Ada_Version
with test on Nkind.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 9a7d352..203d1d0 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -1067,7 +1067,7 @@ package body Sem_Aggr is function Is_Null_Aggregate (N : Node_Id) return Boolean is begin - return Ada_Version >= Ada_2022 + return Nkind (N) = N_Aggregate and then Is_Homogeneous_Aggregate (N) and then Is_Empty_List (Expressions (N)) and then Is_Empty_List (Component_Associations (N)); |