From: Piotr Trojanek Date: Tue, 12 Jul 2022 13:35:00 +0000 (+0200) Subject: [Ada] Remove excessive guards against inserting empty lists of actions X-Git-Tag: basepoints/gcc-14~4804 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2af82bc2eb9b75d6f10aa0f48ad9489a8798416a;p=thirdparty%2Fgcc.git [Ada] Remove excessive guards against inserting empty lists of actions Call to Insert_Actions with empty list does nothing, so there is no need to guard against such calls. Code cleanup; behavior is unaffected. gcc/ada/ * freeze.adb (Freeze_Itype): Remove excessive guard. * sem_ch5.adb (Analyze_Loop_Parameter_Specification): Likewise. --- diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 382e5b4b06be..f970f91931da 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -9653,9 +9653,7 @@ package body Freeze is Set_Has_Delayed_Freeze (T); L := Freeze_Entity (T, N); - if Is_Non_Empty_List (L) then - Insert_Actions (N, L); - end if; + Insert_Actions (N, L); end Freeze_Itype; -------------------------- diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index e1b572222883..d4420cbf3aa9 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -3365,9 +3365,7 @@ package body Sem_Ch5 is declare Flist : constant List_Id := Freeze_Entity (Id, N); begin - if Is_Non_Empty_List (Flist) then - Insert_Actions (N, Flist); - end if; + Insert_Actions (N, Flist); end; end if;