Commit d9c1dc68 by Samuel Tardieu Committed by Samuel Tardieu

sem_attr.adb (Analyze_Attribute): Remove duplicate identical embedded check for…

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
parent bc01690e
...@@ -22,6 +22,9 @@ ...@@ -22,6 +22,9 @@
which is always false; LOWEST_ADDRESS is 0 and is never greater which is always false; LOWEST_ADDRESS is 0 and is never greater
than an unsigned integer. 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> 2007-11-07 Olivier Hainque <hainque@adacore.com>
* decl.c (make_aligning_type): Set the mode of the RECORD_TYPE we * decl.c (make_aligning_type): Set the mode of the RECORD_TYPE we
...@@ -1841,10 +1841,9 @@ package body Sem_Attr is ...@@ -1841,10 +1841,9 @@ package body Sem_Attr is
-- entry wrappers, the attributes Count, Caller and AST_Entry require -- entry wrappers, the attributes Count, Caller and AST_Entry require
-- a context check -- a context check
if Ada_Version >= Ada_05 if Aname = Name_Count
and then (Aname = Name_Count or else Aname = Name_Caller
or else Aname = Name_Caller or else Aname = Name_AST_Entry
or else Aname = Name_AST_Entry)
then then
declare declare
Count : Natural := 0; Count : Natural := 0;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment