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 31e640a..c8bfcf3 100644 (file)
--- 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 6c3e3dc..ce66987 100644 (file)
--- 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;