From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 14 Apr 2020 21:49:22 +0000 (+0200)
Subject: [Ada] Remove new problematic condition for LLVM
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=cb52e9fe481fd7873fe030dada7626c972295afd;p=gcc.git

[Ada] Remove new problematic condition for LLVM

2020-06-17  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* exp_attr.adb (Expand_N_Attribute_Reference) <Attribute_First>:
	Remove condition added for scalar types.
---

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 888b112d80e..785ed25aed2 100644
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -3470,9 +3470,7 @@ package body Exp_Attr is
                   Bnd := Type_High_Bound (Ptyp);
                end if;
 
-               if Is_Entity_Name (Bnd)
-                 and then Ekind (Entity (Bnd)) /= E_Discriminant
-               then
+               if Is_Entity_Name (Bnd) then
                   Rewrite (N, New_Occurrence_Of (Entity (Bnd), Loc));
                end if;
             end;