diff mbox series

[COMMITTED] ada: Simplify "not Present" with "No"

Message ID 20231019144130.339314-1-poulhies@adacore.com
State Unresolved
Headers
Series [COMMITTED] ada: Simplify "not Present" with "No" |

Checks

Context Check Description
snail/gcc-patch-check warning Git am fail log

Commit Message

Marc Poulhiès Oct. 19, 2023, 2:41 p.m. UTC 
  From: Piotr Trojanek <trojanek@adacore.com>

gcc/ada/

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

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/exp_aggr.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
diff mbox series

Patch

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