mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 13:51:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

Minor reformatting.

Browse Source 
From-SVN: r244784
This commit is contained in:
Arnaud Charlet 2017-01-23 12:29:46 +01:00
parent ae33543ca5
commit 15e2e3f57e
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ada/sem_aggr.adb
View File

@ -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;

4
gcc/ada/sem_ch3.adb
View File

@ -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);