From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 29 Sep 2021 10:18:36 +0000 (+0200)
Subject: [Ada] Simplify detection of delayed aggregates
X-Git-Tag: basepoints/gcc-13~4017
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=90084d74007367a44ea8de99af80ea20b50bcb79;p=thirdparty%2Fgcc.git

[Ada] Simplify detection of delayed aggregates

gcc/ada/

	* exp_aggr.adb (Is_Delayed_Aggregate): Simplify.
---

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 187bb5f47b66..572c6c534e52 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -8978,11 +8978,8 @@ package body Exp_Aggr is
          Kind := Nkind (Node);
       end if;
 
-      if Kind not in N_Aggregate | N_Extension_Aggregate then
-         return False;
-      else
-         return Expansion_Delayed (Node);
-      end if;
+      return Kind in N_Aggregate | N_Extension_Aggregate
+        and then Expansion_Delayed (Node);
    end Is_Delayed_Aggregate;
 
    --------------------------------