From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 8 Apr 2021 19:19:54 +0000 (+0200)
Subject: [Ada] Remove redundant check for empty list
X-Git-Tag: basepoints/gcc-13~6424
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=afea7b3dc2c85604167debac55cc736689b994ad;p=thirdparty%2Fgcc.git

[Ada] Remove redundant check for empty list

gcc/ada/

	* sem_ch3.adb (Analyze_Declarations): Remove explicit check for
	missing, because a subsequent call to Is_Empty_List will detect
	them anyway.
---

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 70e1dfdb71da..7dfb5c8df623 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -2758,7 +2758,6 @@ package body Sem_Ch3 is
                Resolve_Aspects;
 
             elsif L /= Visible_Declarations (Parent (L))
-              or else No (Private_Declarations (Parent (L)))
               or else Is_Empty_List (Private_Declarations (Parent (L)))
             then
                Adjust_Decl;