diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2023-12-07 21:22:21 +0100 |
---|---|---|
committer | Marc Poulhiès <poulhies@adacore.com> | 2024-01-09 14:13:30 +0100 |
commit | 7ebae03696b71705630824c8aa5ccbaf7a240038 (patch) | |
tree | d9bad5990fcb6689714c8be1c5564536c4b082df | |
parent | 7d4c4a4d21aceabf7bae4eec608d2c6f22fc9d76 (diff) | |
download | gcc-7ebae03696b71705630824c8aa5ccbaf7a240038.zip gcc-7ebae03696b71705630824c8aa5ccbaf7a240038.tar.gz gcc-7ebae03696b71705630824c8aa5ccbaf7a240038.tar.bz2 |
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.
-rw-r--r-- | gcc/ada/sem_aggr.adb | 2 | ||||
-rw-r--r-- | gcc/ada/sem_ch8.adb | 2 |
2 files changed, 2 insertions, 2 deletions
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 |