From: Samuel Tardieu <sam@rfc1149.net>
Date: Wed, 7 Nov 2007 14:52:24 +0000 (+0000)
Subject: sem_attr.adb (Analyze_Attribute): Remove duplicate identical embedded check for ... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d9c1dc68ad3646a9164ec0db28f964d289415fe8;p=gcc.git

sem_attr.adb (Analyze_Attribute): Remove duplicate identical embedded check for "Ada_Version >= Ada_05".

    gcc/ada/
	* sem_attr.adb (Analyze_Attribute): Remove duplicate identical
	embedded check for "Ada_Version >= Ada_05".

From-SVN: r129965
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 31e640aad10..c8bfcf3c208 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -22,6 +22,9 @@
 	which is always false; LOWEST_ADDRESS is 0 and is never greater
 	than an unsigned integer.
 
+	* sem_attr.adb (Analyze_Attribute): Remove duplicate identical
+	embedded check for "Ada_Version >= Ada_05".
+
 2007-11-07  Olivier Hainque  <hainque@adacore.com>
 
 	* decl.c (make_aligning_type): Set the mode of the RECORD_TYPE we
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 6c3e3dcc3ee..ce66987c87e 100644
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -1841,10 +1841,9 @@ package body Sem_Attr is
          --  entry wrappers, the attributes Count, Caller and AST_Entry require
          --  a context check
 
-         if Ada_Version >= Ada_05
-           and then (Aname = Name_Count
-                      or else Aname = Name_Caller
-                      or else Aname = Name_AST_Entry)
+         if Aname = Name_Count
+           or else Aname = Name_Caller
+           or else Aname = Name_AST_Entry
          then
             declare
                Count : Natural := 0;