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 @@
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
......@@ -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
if Aname = Name_Count
or else Aname = Name_Caller
or else Aname = Name_AST_Entry)
or else Aname = Name_AST_Entry
then
declare
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