From 2af82bc2eb9b75d6f10aa0f48ad9489a8798416a Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Tue, 12 Jul 2022 15:35:00 +0200 Subject: [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. --- gcc/ada/freeze.adb | 4 +--- gcc/ada/sem_ch5.adb | 4 +--- 2 files changed, 2 insertions(+), 6 deletions(-) (limited to 'gcc/ada') diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 382e5b4..f970f91 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 e1b5722..d4420cb 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; -- cgit v1.1