From 15e2e3f57e376cd285f50a9a6c92a2712e53e917 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 23 Jan 2017 12:29:46 +0100 Subject: [PATCH] Minor reformatting. From-SVN: r244784 --- gcc/ada/sem_aggr.adb | 12 ++++++------ gcc/ada/sem_ch3.adb | 4 ++-- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 80873180e1e..6ca9d181b3d 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -2289,13 +2289,13 @@ package body Sem_Aggr is elsif ASIS_Mode and then - ((Is_Type (Entity (Table (J).Choice)) - and then Has_Predicates - (Entity (Table (J).Choice))) - or else - (Is_Type (Entity (Table (K).Choice)) + ((Is_Type (Entity (Table (J).Choice)) and then Has_Predicates - (Entity (Table (K).Choice)))) + (Entity (Table (J).Choice))) + or else + (Is_Type (Entity (Table (K).Choice)) + and then Has_Predicates + (Entity (Table (K).Choice)))) then null; diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index e1b73538b54..9cc64b31725 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -2649,8 +2649,8 @@ package body Sem_Ch3 is and then not Is_Generic_Instance (Current_Scope) then -- Loop through all entities in the current scope to identify - -- an instance of the edge-case outlined above and ignore - -- freezeing if it is detected. + -- an instance of the edge case outlined above and ignore + -- freezing if it is detected. declare Curr : Entity_Id := First_Entity (Current_Scope); -- 2.30.2