diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-29 10:06:12 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-29 10:06:12 +0200 |
| commit | cdbf04c041ab5d60441c4af55a79d1a3d3cee43b (patch) | |
| tree | 97a598740f9601d6100af21823def879b08c0589 | |
| parent | a168f5191351d1d0439968383a64fd91f947b3aa (diff) | |
| download | gcc-cdbf04c041ab5d60441c4af55a79d1a3d3cee43b.zip gcc-cdbf04c041ab5d60441c4af55a79d1a3d3cee43b.tar.gz gcc-cdbf04c041ab5d60441c4af55a79d1a3d3cee43b.tar.bz2 | |
* sem_res.adb: Minor reformatting
From-SVN: r136141
| -rw-r--r-- | gcc/ada/sem_res.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index b6c72b4..8001087 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", |