diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-13 16:53:23 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-07 16:24:07 +0000 |
| commit | 3174b67eefb20421d43a6c96473fe41ee4cd1bf9 (patch) | |
| tree | f9a0ed9d01ec0e9ab607917cae83aaac0266df3b | |
| parent | 34b8a9b8c094a43566fe4fbe0f9252dcd4d92e70 (diff) | |
| download | gcc-3174b67eefb20421d43a6c96473fe41ee4cd1bf9.zip gcc-3174b67eefb20421d43a6c96473fe41ee4cd1bf9.tar.gz gcc-3174b67eefb20421d43a6c96473fe41ee4cd1bf9.tar.bz2 | |
[Ada] Remove unnecessary guards for appending non-empty lists
gcc/ada/
* exp_ch3.adb (Build_Init_Procedure): Remove unnecessary guard.
* exp_disp.adb (Make_DT): Likewise.
* sem_ch12.adb (Analyze_Associations): Likewise.
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_disp.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 4 |
3 files changed, 3 insertions, 9 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 2657991..e3f5d48 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -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; diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 2ea8d58..7396c3e 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -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 diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index fe55c5c..be92874 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -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; |