gcc/ada/
* exp_ch3.adb (Build_Init_Procedure): Remove unnecessary guard.
* exp_disp.adb (Make_DT): Likewise.
* sem_ch12.adb (Analyze_Associations): Likewise.
Fixed_Comps => False,
Variable_Comps => True);
- if Is_Non_Empty_List (Init_Tags_List) then
- Append_List_To (Body_Stmts, Init_Tags_List);
- end if;
+ Append_List_To (Body_Stmts, Init_Tags_List);
end if;
end if;
New_List (New_Occurrence_Of (DT_Ptr, Loc))));
end if;
- if not Is_Empty_List (Elab_Code) then
- Append_List_To (Result, Elab_Code);
- end if;
+ Append_List_To (Result, Elab_Code);
-- Populate the two auxiliary tables used for dispatching asynchronous,
-- conditional and timed selects for synchronized types that implement
-- explicit box associations for the formals that are covered by an
-- Others_Choice.
- if not Is_Empty_List (Default_Formals) then
- Append_List (Default_Formals, Formals);
- end if;
+ Append_List (Default_Formals, Formals);
return Assoc_List;
end Analyze_Associations;