From 56bac82195079d95d087109894655939673abd1e Mon Sep 17 00:00:00 2001 From: sam Date: Wed, 7 Nov 2007 14:52:24 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 3 +++ gcc/ada/sem_attr.adb | 7 +++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 31e640a..c8bfcf3 100644 --- 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 * 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 --- 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; -- 2.7.4