diff options
author | Gary Dismukes <dismukes@adacore.com> | 2024-04-17 21:24:21 +0000 |
---|---|---|
committer | Marc Poulhiès <poulhies@adacore.com> | 2024-06-10 11:04:01 +0200 |
commit | 9bf9e60e262f54d87b146a2a322a8ad6324301ea (patch) | |
tree | b870e35ae8c5fa2b0a518679f6db559c3eb68e38 | |
parent | f32d2d14452a9d7ca704f866a86da43865c966bd (diff) | |
download | gcc-9bf9e60e262f54d87b146a2a322a8ad6324301ea.zip gcc-9bf9e60e262f54d87b146a2a322a8ad6324301ea.tar.gz gcc-9bf9e60e262f54d87b146a2a322a8ad6324301ea.tar.bz2 |
ada: Minor code adjustment to "not Present" test
This is just changing a "not Present (...)" test to "No (...)"
to address a CB complaint from gnatcheck.
gcc/ada/
* sem_aggr.adb (Resolve_Iterated_Association): Change "not Present"
to "No" in test of Add_Named_Subp.
-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 51b88ab..249350d 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -3380,7 +3380,7 @@ package body Sem_Aggr is Key_Expr := Key_Expression (Comp); if Present (Key_Expr) then - if not Present (Add_Named_Subp) then + if No (Add_Named_Subp) then Error_Msg_N ("iterated_element_association with key_expression only " & "allowed for container type with Add_Named operation " |