From cb52e9fe481fd7873fe030dada7626c972295afd Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 14 Apr 2020 23:49:22 +0200 Subject: [PATCH] [Ada] Remove new problematic condition for LLVM 2020-06-17 Eric Botcazou gcc/ada/ * exp_attr.adb (Expand_N_Attribute_Reference) : Remove condition added for scalar types. --- gcc/ada/exp_attr.adb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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; -- 2.30.2