diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-04-14 23:49:22 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-17 04:14:13 -0400 |
| commit | cb52e9fe481fd7873fe030dada7626c972295afd (patch) | |
| tree | 8457e6498172c50e6e85863768f1f2a73027ca5c | |
| parent | 14e75608240f1df215e003c08b8fdbe4a6a9844c (diff) | |
| download | gcc-cb52e9fe481fd7873fe030dada7626c972295afd.zip gcc-cb52e9fe481fd7873fe030dada7626c972295afd.tar.gz gcc-cb52e9fe481fd7873fe030dada7626c972295afd.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/exp_attr.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 888b112..785ed25 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; |