From 90084d74007367a44ea8de99af80ea20b50bcb79 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 29 Sep 2021 12:18:36 +0200 Subject: [Ada] Simplify detection of delayed aggregates gcc/ada/ * exp_aggr.adb (Is_Delayed_Aggregate): Simplify. --- gcc/ada/exp_aggr.adb | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'gcc/ada/exp_aggr.adb') diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 187bb5f..572c6c5 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; -------------------------------- -- cgit v1.1