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

* sem_res.adb: Minor reformatting 

From-SVN: r136141
This commit is contained in:
Arnaud Charlet 2008-05-29 10:06:12 +02:00
parent a168f51913
commit cdbf04c041
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/sem_res.adb
View File

@ -9434,7 +9434,7 @@ package body Sem_Res is
end if;
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
-- be assigned.
@ -9443,10 +9443,9 @@ package body Sem_Res is
Ekind (Target_Type) = E_Anonymous_Access_Subprogram_Type)
and then No (Corresponding_Remote_Type (Opnd_Type))
then
if
Ekind (Base_Type (Opnd_Type)) = E_Anonymous_Access_Subprogram_Type
and then Is_Entity_Name (Operand)
and then Ekind (Entity (Operand)) = E_In_Parameter
if Ekind (Base_Type (Opnd_Type)) = E_Anonymous_Access_Subprogram_Type
and then Is_Entity_Name (Operand)
and then Ekind (Entity (Operand)) = E_In_Parameter
then
Error_Msg_N
("illegal attempt to store anonymous access to subprogram",