@@ -2885,9 +2885,7 @@ package body Exp_Ch3 is
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;
@@ -6379,9 +6379,7 @@ package body Exp_Disp is
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
@@ -2248,9 +2248,7 @@ package body Sem_Ch12 is
-- 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;