]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
ada: Remove repeated condition in check for implementation attributes
authorPiotr Trojanek <trojanek@adacore.com>
Mon, 25 Mar 2024 21:50:47 +0000 (22:50 +0100)
committerMarc Poulhiès <poulhies@adacore.com>
Mon, 20 May 2024 07:47:04 +0000 (09:47 +0200)
Code cleanup; semantics is unaffected.

gcc/ada/

* sem_attr.adb (Analyze_Attribute): Remove condition that is
already checked by an enclosing IF statement.

gcc/ada/sem_attr.adb

index 2b22cf13ad007ea878143fa7ad194d2f0c65a2a1..6c32d201c55c8a31a02029007fca749fbcfde4f4 100644 (file)
@@ -3225,7 +3225,7 @@ package body Sem_Attr is
 
       if Comes_From_Source (N) then
          if not Attribute_83 (Attr_Id) then
-            if Ada_Version = Ada_83 and then Comes_From_Source (N) then
+            if Ada_Version = Ada_83 then
                Error_Msg_Name_1 := Aname;
                Error_Msg_N ("(Ada 83) attribute% is not standard??", N);
             end if;