From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 25 Sep 2023 15:30:57 +0000 (+0200)
Subject: ada: Simplify "not Present" with "No"
X-Git-Tag: basepoints/gcc-15~5390
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7b1b787baa6ecc03a62b0db043a856cdb6463146;p=thirdparty%2Fgcc.git

ada: Simplify "not Present" with "No"

gcc/ada/

	* exp_aggr.adb (Expand_Container_Aggregate): Simplify with "No".
---

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index e5f363266008..340c8c68465b 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;