[Ada] Entities in E_Loop scopes are not library-level entities
authorJavier Miranda <miranda@adacore.com>
Thu, 26 Aug 2021 17:40:14 +0000 (13:40 -0400)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 4 Oct 2021 08:45:04 +0000 (08:45 +0000)
commitcf1c69fb8c6b4ce894b95250028ed1ae5982c739
tree540597a02b161989021236496bf1eea281530d7f
parent2376b04d474656af0234bee68af144a7780253b6
[Ada] Entities in E_Loop scopes are not library-level entities

gcc/ada/

* sem_util.adb (Is_Library_Level_Entity): Return False for
entities defined in E_Loop scopes. This change is not required
by the frontend; it is required by tools that depend on the
frontend sources.
* einfo-utils.adb (Is_Dynamic_Scope): Code cleanup.
gcc/ada/einfo-utils.adb
gcc/ada/sem_util.adb