Commit 996ce809 by Justin Squirek Committed by Arnaud Charlet

sem_ch6.adb (Check_Aggregate_Accessibility): Ignore function calls in…

sem_ch6.adb (Check_Aggregate_Accessibility): Ignore function calls in accessibility check on return statement.

2017-01-13  Justin Squirek  <squirek@adacore.com>

	* sem_ch6.adb (Check_Aggregate_Accessibility): Ignore function
	calls in accessibility check on return statement.

From-SVN: r244422
parent 36be0082
2017-01-13 Justin Squirek <squirek@adacore.com>
* sem_ch6.adb (Check_Aggregate_Accessibility): Ignore function
calls in accessibility check on return statement.
2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch6.adb (Analyze_Subprogram_Body_Helper):
......
......@@ -676,6 +676,7 @@ package body Sem_Ch6 is
while Present (Discr) loop
if Ekind (Etype (Discr)) = E_Anonymous_Access_Type then
Expr := Expression (Assoc);
if Nkind (Expr) = N_Attribute_Reference
and then Attribute_Name (Expr) /= Name_Unrestricted_Access
then
......@@ -686,11 +687,13 @@ package body Sem_Ch6 is
Obj := Prefix (Obj);
end loop;
-- No check needed for an aliased formal.
-- A run-time check may still be needed ???
-- Do not check aliased formals or function calls. A
-- run-time check may still be needed ???
if Is_Entity_Name (Obj)
and then Is_Formal (Entity (Obj))
and then Comes_From_Source (Obj)
then
if Is_Formal (Entity (Obj))
and then Is_Aliased (Entity (Obj))
then
null;
......@@ -699,8 +702,9 @@ package body Sem_Ch6 is
Scope_Depth (Scope (Scope_Id))
then
Error_Msg_N
("access discriminant in return aggregate would be "
& "a dangling reference", Obj);
("access discriminant in return aggregate would "
& "be a dangling reference", Obj);
end if;
end if;
end if;
end if;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment