diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-03-25 22:50:47 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-20 09:47:04 +0200 |
| commit | 4ed963a52a0a7349f0beb765ee0802857d1752eb (patch) | |
| tree | 79a750f7efd4102fecf31ae360d9785c91b623d8 | |
| parent | 766a3934c13d2732de3af2c219cae399e94a4470 (diff) | |
| download | gcc-4ed963a52a0a7349f0beb765ee0802857d1752eb.zip gcc-4ed963a52a0a7349f0beb765ee0802857d1752eb.tar.gz gcc-4ed963a52a0a7349f0beb765ee0802857d1752eb.tar.bz2 | |
ada: Remove repeated condition in check for implementation attributes
Code cleanup; semantics is unaffected.
gcc/ada/
* sem_attr.adb (Analyze_Attribute): Remove condition that is
already checked by an enclosing IF statement.
| -rw-r--r-- | gcc/ada/sem_attr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 2b22cf1..6c32d20 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -3225,7 +3225,7 @@ package body Sem_Attr is if Comes_From_Source (N) then if not Attribute_83 (Attr_Id) then - if Ada_Version = Ada_83 and then Comes_From_Source (N) then + if Ada_Version = Ada_83 then Error_Msg_Name_1 := Aname; Error_Msg_N ("(Ada 83) attribute% is not standard??", N); end if; |