diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-07-12 15:35:00 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2022-09-05 09:21:00 +0200 |
| commit | 2af82bc2eb9b75d6f10aa0f48ad9489a8798416a (patch) | |
| tree | 167b0f3c8950c7585d421b484ab7a99772c5adcb | |
| parent | 124c5e5c7c3bcfa28a6355a1a6247ea4e94c4a71 (diff) | |
| download | gcc-2af82bc2eb9b75d6f10aa0f48ad9489a8798416a.zip gcc-2af82bc2eb9b75d6f10aa0f48ad9489a8798416a.tar.gz gcc-2af82bc2eb9b75d6f10aa0f48ad9489a8798416a.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/freeze.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 4 |
2 files changed, 2 insertions, 6 deletions
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; |