mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-18 14:30:42 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

From-SVN: r129965
This commit is contained in:
Samuel Tardieu 2007-11-07 14:52:24 +00:00 committed by Samuel Tardieu
parent bc01690e80
commit d9c1dc68ad
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/ada/ChangeLog
View 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

7
gcc/ada/sem_attr.adb
View 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;