[Ada] Correct A'First (N) where N is an object name
authorBob Duff <duff@adacore.com>
Wed, 17 Mar 2021 16:14:12 +0000 (12:14 -0400)
committerPierre-Marie de Rodat <derodat@adacore.com>
Fri, 18 Jun 2021 08:36:50 +0000 (04:36 -0400)
commit537f0ce3078e4b1dd9f357ed4ed791e05024455a
treeeb3ad8ff143c6f53ab0222dfdc25f8dddc59deb5
parent7120f082181be2fc8cfc4f121809da71d2554503
[Ada] Correct A'First (N) where N is an object name

gcc/ada/

* sem_attr.adb (Check_Array_Or_Scalar_Type): Use Expr_Value
instead of Intval, because the latter only exists in literals.
Remove Set_Etype on E1; setting the type is done elsewhere.
gcc/ada/sem_attr.adb