From: sam <sam@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 7 Nov 2007 14:52:24 +0000 (+0000)
Subject:     gcc/ada/
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=56bac82195079d95d087109894655939673abd1e;p=thirdparty%2Fgcc.git

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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129965 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 31e640aad10b..c8bfcf3c2088 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 6c3e3dcc3ee4..ce66987c87e1 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;