sem_ch3.adb, [...]: Minor reformatting.

2016-04-21  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_ch3.adb, exp_attr.adb, exp_ch6.adb, exp_aggr.adb: Minor
	reformatting.

From-SVN: r235322

gcc/ada/ChangeLog

+2016-04-21  Hristian Kirtchev  <kirtchev@adacore.com>
+
+	* sem_ch3.adb, exp_attr.adb, exp_ch6.adb, exp_aggr.adb: Minor
+	reformatting.
+
 2016-04-21  Javier Miranda  <miranda@adacore.com>
 
 	* exp_aggr.adb (Component_Check): Extend

gcc/ada/exp_aggr.adb

@@ -564,7 +564,6 @@ package body Exp_Aggr is
       ---------------------
 
       function Component_Check (N : Node_Id; Index : Node_Id) return Boolean is
-
          function Ultimate_Original_Expression (N : Node_Id) return Node_Id;
          --  Given a type conversion or an unchecked type conversion N, return
          --  its innermost original expression.
@@ -590,6 +589,8 @@ package body Exp_Aggr is
 
          Expr : Node_Id;
 
+      --  Start of processing for Component_Check
+
       begin
          --  Checks 1: (no component associations)
 

gcc/ada/exp_attr.adb

@@ -583,13 +583,15 @@ package body Exp_Attr is
          end if;
       end Make_VS_If;
 
-      --  Local Declarations
+      --  Local variables
 
       Def    : constant Node_Id := Parent (R_Type);
       Comps  : constant Node_Id := Component_List (Type_Definition (Def));
       Stmts  : constant List_Id := New_List;
       Pspecs : constant List_Id := New_List;
 
+   --  Start of processing for Build_Record_VS_Func
+
    begin
       Append_To (Pspecs,
         Make_Parameter_Specification (Loc,

gcc/ada/exp_ch6.adb

@@ -8477,8 +8477,7 @@ package body Exp_Ch6 is
          if not Comes_From_Source (Orig_Func)
            and then Etype (Orig_Func) /= Etype (Func_Id)
          then
-            Last_Actual :=
-               Unchecked_Convert_To (Etype (Func_Id), Last_Actual);
+            Last_Actual := Unchecked_Convert_To (Etype (Func_Id), Last_Actual);
          end if;
 
          Append_To (Actuals,

gcc/ada/sem_ch3.adb

@@ -5071,11 +5071,12 @@ package body Sem_Ch3 is
         and then Has_Predicates (T)
         and then Present (Predicate_Function (T))
       then
+         --  ??? This is dangerous, it may clobber the invariant procedure
+
          Set_Subprograms_For_Type (Id, Subprograms_For_Type (T));
 
          if Has_Static_Predicate (T) then
-            Set_Static_Discrete_Predicate (Id,
-              Static_Discrete_Predicate (T));
+            Set_Static_Discrete_Predicate (Id, Static_Discrete_Predicate (T));
          end if;
       end if;