diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-23 12:29:46 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-23 12:29:46 +0100 |
| commit | 15e2e3f57e376cd285f50a9a6c92a2712e53e917 (patch) | |
| tree | 685ee11d37645fbb4f67f0b7400e4a7265c3918f | |
| parent | ae33543ca51ec15393064ab2075fed28c33ce2d0 (diff) | |
| download | gcc-15e2e3f57e376cd285f50a9a6c92a2712e53e917.zip gcc-15e2e3f57e376cd285f50a9a6c92a2712e53e917.tar.gz gcc-15e2e3f57e376cd285f50a9a6c92a2712e53e917.tar.bz2 | |
Minor reformatting.
From-SVN: r244784
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 12 | ||||
| -rw-r--r-- | 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 8087318..6ca9d18 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 e1b7353..9cc64b3 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); |