Look at fullest view when checking for static types in unnesting
authorArnaud Charlet <charlet@adacore.com>
Thu, 3 Sep 2020 07:38:40 +0000 (03:38 -0400)
committerArnaud Charlet <charlet@adacore.com>
Thu, 3 Sep 2020 08:15:03 +0000 (04:15 -0400)
commiteb6ea9e54f1f275fd6ec3c61662243ca0165bd64
tree26ac38333bb327c5b10e857c997a58d2a583c191
parent433734126996b6fc4fc99b594421510f928a7bb9
Look at fullest view when checking for static types in unnesting

When seeing if any bound involved in a type is an uplevel reference,
we must look at the fullest view of a type, since that's what the
backends will do.  Similarly for private types. We introduce
Get_Fullest_View for that purpose.

* sem_util.ads, sem_util.adb (Get_Fullest_View): New procedure.
* exp_unst.adb (Check Static_Type): Do all processing on fullest
view of specified type.
gcc/ada/exp_unst.adb
gcc/ada/sem_util.adb
gcc/ada/sem_util.ads