From fbbfad022c2f5bc6b481b41bd32faa278e343474 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 28 Oct 2024 09:56:44 +0100 Subject: 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. --- gcc/ada/sem_aggr.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc') 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)); -- cgit v1.1