diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-09-29 12:18:36 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-11 13:38:10 +0000 |
| commit | 90084d74007367a44ea8de99af80ea20b50bcb79 (patch) | |
| tree | 79e559cce5868353abc7037d1669f82b4991bdfb /gcc/ada/exp_aggr.adb | |
| parent | b52e15202c8a0ed1afeff92bba72fd2811c9dac1 (diff) | |
| download | gcc-90084d74007367a44ea8de99af80ea20b50bcb79.zip gcc-90084d74007367a44ea8de99af80ea20b50bcb79.tar.gz gcc-90084d74007367a44ea8de99af80ea20b50bcb79.tar.bz2 | |
[Ada] Simplify detection of delayed aggregates
gcc/ada/
* exp_aggr.adb (Is_Delayed_Aggregate): Simplify.
Diffstat (limited to 'gcc/ada/exp_aggr.adb')
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 7 |
1 files changed, 2 insertions, 5 deletions
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; -------------------------------- |