From cdbf04c041ab5d60441c4af55a79d1a3d3cee43b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 29 May 2008 10:06:12 +0200 Subject: [PATCH] * sem_res.adb: Minor reformatting From-SVN: r136141 --- gcc/ada/sem_res.adb | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index b6c72b44cde..80010871910 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -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", -- 2.30.2