diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2023-09-25 17:30:57 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-10-19 16:35:21 +0200 |
| commit | 7b1b787baa6ecc03a62b0db043a856cdb6463146 (patch) | |
| tree | bf0b9229c7201fc498a651dbfb16e9578025c545 /gcc | |
| parent | 19cc4b9d74940f29c961e2a5a8b1fa84992d3d30 (diff) | |
| download | gcc-7b1b787baa6ecc03a62b0db043a856cdb6463146.zip gcc-7b1b787baa6ecc03a62b0db043a856cdb6463146.tar.gz gcc-7b1b787baa6ecc03a62b0db043a856cdb6463146.tar.bz2 | |
ada: Simplify "not Present" with "No"
gcc/ada/
* exp_aggr.adb (Expand_Container_Aggregate): Simplify with "No".
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index e5f3632..340c8c6 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -7288,7 +7288,7 @@ package body Exp_Aggr is -- Iterated component association. Discard -- positional insertion procedure. - if not Present (Iterator_Specification (Comp)) then + if No (Iterator_Specification (Comp)) then Add_Named_Subp := Assign_Indexed_Subp; Add_Unnamed_Subp := Empty; end if; |