OSDN Git Service

gcc/ada/
authorsam <sam@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 7 Nov 2007 14:52:24 +0000 (14:52 +0000)
committersam <sam@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 7 Nov 2007 14:52:24 +0000 (14:52 +0000)
* 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

gcc/ada/ChangeLog
gcc/ada/sem_attr.adb

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