https://gcc.gnu.org/g:913fa16483256daacd576476312dfcc2d2421517
commit r15-2684-g913fa16483256daacd576476312dfcc2d2421517
Author: Piotr Trojanek <troja...@adacore.com>
Date: Fri Jul 5 17:16:36 2024 +0200
ada: Simplify manipulation of the list with loop actions
Code cleanup; behavior is unaffected.
gcc/ada/
* exp_aggr.adb (Add_Loop_Actions): Change manipulation of list
to avoid unnecessary calls to Parent and Loop_Actions.
Diff:
---
gcc/ada/exp_aggr.adb | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 7a2d0570dbd4..8496fcd9b002 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -1262,9 +1262,9 @@ package body Exp_Aggr is
elsif Nkind (Parent (Expr)) = N_Component_Association
and then Present (Loop_Actions (Parent (Expr)))
then
- Append_List (Lis, Loop_Actions (Parent (Expr)));
Res := Loop_Actions (Parent (Expr));
Set_Loop_Actions (Parent (Expr), No_List);
+ Append_List (Lis, To => Res);
return Res;
else
