From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 26 Mar 2025 17:42:10 +0000 (+0100)
Subject: ada: Remove redundant guard against attribute with no expressions
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5dc946f78e6d0ba73fd33990b3a353f113ecdd64;p=thirdparty%2Fgcc.git

ada: Remove redundant guard against attribute with no expressions

We intentionally allow First to work on No_List, so there is no need to guard
against a No_List. Code cleanup; semantics is unaffected.

gcc/ada/ChangeLog:

	* sem_attr.adb (Resolve_Attribute): Remove redundant guard.
---

diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index d4034d28da6..4f5047f7b97 100644
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -13014,7 +13014,6 @@ package body Sem_Attr is
             --  their Entity attribute to reference their discriminal.
 
             if Expander_Active
-              and then Present (Expressions (N))
               and then Attr_Id /= Attribute_Make
             then
                declare