diff options
| author | sam <sam@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-07 14:52:24 +0000 |
|---|---|---|
| committer | sam <sam@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-07 14:52:24 +0000 |
| commit | 56bac82195079d95d087109894655939673abd1e (patch) | |
| tree | 388326fcf7e797cb1d2e6e1d198a9cbb7b6eef62 /gcc | |
| parent | f9ce4996139f9846e7677fd8695c4039284fa1df (diff) | |
| download | gcc-56bac82195079d95d087109894655939673abd1e.tar.gz | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 3 | ||||
| -rw-r--r-- | gcc/ada/sem_attr.adb | 7 |
2 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 31e640aad10..c8bfcf3c208 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 <hainque@adacore.com> * 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 6c3e3dcc3ee..ce66987c87e 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; |