Commit cdbf04c0 by Arnaud Charlet

* sem_res.adb: Minor reformatting

From-SVN: r136141
parent a168f519
...@@ -9434,7 +9434,7 @@ package body Sem_Res is ...@@ -9434,7 +9434,7 @@ package body Sem_Res is
end if; end if;
end; end;
-- access to subprogram types. If the operand is an access parameter, -- Access to subprogram types. If the operand is an access parameter,
-- the type has a deeper accessibility that any master, and cannot -- the type has a deeper accessibility that any master, and cannot
-- be assigned. -- be assigned.
...@@ -9443,10 +9443,9 @@ package body Sem_Res is ...@@ -9443,10 +9443,9 @@ package body Sem_Res is
Ekind (Target_Type) = E_Anonymous_Access_Subprogram_Type) Ekind (Target_Type) = E_Anonymous_Access_Subprogram_Type)
and then No (Corresponding_Remote_Type (Opnd_Type)) and then No (Corresponding_Remote_Type (Opnd_Type))
then then
if if Ekind (Base_Type (Opnd_Type)) = E_Anonymous_Access_Subprogram_Type
Ekind (Base_Type (Opnd_Type)) = E_Anonymous_Access_Subprogram_Type and then Is_Entity_Name (Operand)
and then Is_Entity_Name (Operand) and then Ekind (Entity (Operand)) = E_In_Parameter
and then Ekind (Entity (Operand)) = E_In_Parameter
then then
Error_Msg_N Error_Msg_N
("illegal attempt to store anonymous access to subprogram", ("illegal attempt to store anonymous access to subprogram",
......
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