OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Set scope of elaboration flag for 'Access

Browse Source 
2018-08-21  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/

	* sem_attr.adb: Set scope of elaboration flag for 'Access.

From-SVN: r263724
This commit is contained in:
Ed Schonberg 2018-08-21 14:47:18 +00:00 committed by Pierre-Marie de Rodat
parent 1bd9b6a576
commit 78645ad8c7
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2018-08-21 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb: Set scope of elaboration flag for 'Access.
2018-08-21 Ed Schonberg <schonberg@adacore.com>
* sprint.adb: Add guard on printing aspects.

9
gcc/ada/sem_attr.adb
View File

@ -11245,6 +11245,15 @@ package body Sem_Attr is
New_Occurrence_Of (Standard_Short_Integer, Loc),
Expression =>
Make_Integer_Literal (Loc, Uint_0)));
-- The above sets the Scope of the flag entity to the
-- current scope, in which the attribute appears, but
-- the flag declaration has been inserted after that
-- of Subp_Id, so the scope of the flag the same as
-- that of Subp_Id. This is relevant when unnesting,
-- whereh processing depends on correct scope settingl
Set_Scope (Flag_Id, Scop);
end if;
-- Taking the 'Access of an expression function freezes its