[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.
This commit is contained in:
parent
14e7560824
commit
cb52e9fe48
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user