From 7ebae03696b71705630824c8aa5ccbaf7a240038 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 7 Dec 2023 21:22:21 +0100 Subject: ada: Fix uses of not Present Fix style violation reported by GNATcheck. gcc/ada/ * sem_aggr.adb (Resolve_Container_Aggregate): Use "No". * sem_ch8.adb (Find_Direct_Name): Likewise. --- gcc/ada/sem_aggr.adb | 2 +- gcc/ada/sem_ch8.adb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada') diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index f586c18..d3d4c4a 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -3445,7 +3445,7 @@ package body Sem_Aggr is -- associations (Add_Unnnamed is not allowed), so we issue an -- error if there are positional associations. - if not Present (Comp_Assocs) + if No (Comp_Assocs) and then Present (Expressions (N)) then Error_Msg_N ("container aggregate must be " diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index fc2fec5..451a1b6 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -6745,7 +6745,7 @@ package body Sem_Ch8 is Id : Entity_Id := Gen_Trailer; begin loop - if not Present (Id) then + if No (Id) then -- E_Trailer presumably occurred -- earlier on the entity list than -- Gen_Trailer. So E preceded the -- cgit v1.1