diff options
Diffstat (limited to 'gcc/ada/sem_aggr.adb')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index bf9b24f2404..e5dfcaac365 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -4355,13 +4355,12 @@ package body Sem_Aggr is end if; if Needs_Box then - Append - (Make_Component_Association (Loc, - Choices => - New_List (Make_Others_Choice (Loc)), - Expression => Empty, - Box_Present => True), - Component_Associations (Aggr)); + Append_To (Component_Associations (Aggr), + Make_Component_Association (Loc, + Choices => + New_List (Make_Others_Choice (Loc)), + Expression => Empty, + Box_Present => True)); end if; end Propagate_Discriminants; @@ -4400,14 +4399,14 @@ package body Sem_Aggr is while Present (Comp) loop if Ekind (Comp) = E_Component then if not Is_Record_Type (Etype (Comp)) then - Append - (Make_Component_Association (Loc, + Append_To + (Component_Associations (Expr), + Make_Component_Association (Loc, Choices => New_List (Make_Others_Choice (Loc)), Expression => Empty, - Box_Present => True), - Component_Associations (Expr)); + Box_Present => True)); end if; exit; end if; |