diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2018-05-22 13:18:45 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-22 13:18:45 +0000 |
| commit | e5fc017905d64f59f189bf9453978fa158a289e6 (patch) | |
| tree | 44e8266a22d377a573a5832275bbfaa3c1090da2 /gcc/ada/sem_ch4.adb | |
| parent | eaf51442d2d20864713492eb0355a9ec4abe0573 (diff) | |
| download | gcc-e5fc017905d64f59f189bf9453978fa158a289e6.zip gcc-e5fc017905d64f59f189bf9453978fa158a289e6.tar.gz gcc-e5fc017905d64f59f189bf9453978fa158a289e6.tar.bz2 | |
[Ada] Minor reformattings
2018-05-22 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* exp_ch5.adb, freeze.adb, pprint.adb, sem_ch4.adb, sem_res.adb: Minor
reformattings.
From-SVN: r260508
Diffstat (limited to 'gcc/ada/sem_ch4.adb')
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 2452cf9..0d77ad1 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -3217,15 +3217,15 @@ package body Sem_Ch4 is or else Nkind (Original_Node (N)) = N_Selected_Component or else (Nkind (Original_Node (N)) = N_Indexed_Component - and then Nkind (Prefix (Original_Node (N))) - = N_Selected_Component) + and then Nkind (Prefix (Original_Node (N))) = + N_Selected_Component) or else (Nkind (Parent (N)) = N_Function_Call - and then Is_Array_Type (Etype (Name (N))) - and then Etype (Original_Node (N)) = - Component_Type (Etype (Name (N))) - and then Nkind (Original_Node (Parent (N))) - = N_Selected_Component); + and then Is_Array_Type (Etype (Name (N))) + and then Etype (Original_Node (N)) = + Component_Type (Etype (Name (N))) + and then Nkind (Original_Node (Parent (N))) = + N_Selected_Component); -- The first formal must be omitted from the match when trying to find -- a primitive operation that is a possible interpretation, and also |