diff options
| -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 |