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

2015-11-12  Hristian Kirtchev  <kirtchev@adacore.com>

	* exp_attr.adb, freeze.adb, sem_util.adb, sem_ch13.adb: Minor
	reformatting.

From-SVN: r230235

gcc/ada/ChangeLog

+2015-11-12  Hristian Kirtchev  <kirtchev@adacore.com>
+
+	* exp_attr.adb, freeze.adb, sem_util.adb, sem_ch13.adb: Minor
+	reformatting.
+
 2015-11-12  Ed Schonberg  <schonberg@adacore.com>
 
 	* exp_attr.adb (Compile_Stream_Body_In_Scope): When compiling

gcc/ada/exp_attr.adb

@@ -636,7 +636,6 @@ package body Exp_Attr is
    is
       C_Type  : constant Entity_Id := Base_Type (Component_Type (Arr));
       Curr    : constant Entity_Id := Current_Scope;
-
       Install : Boolean := False;
       Scop    : Entity_Id := Scope (Arr);
 
@@ -646,10 +645,10 @@ package body Exp_Attr is
         and then Ekind (Scop) = E_Package
       then
          Install := True;
-      else
 
-         --  The component type may be private, in which case we install
-         --  its full view to compile the subprogram.
+      else
+         --  The component type may be private, in which case we install its
+         --  full view to compile the subprogram.
 
          Scop := Scope (C_Type);
 
@@ -665,9 +664,7 @@ package body Exp_Attr is
       --  If we are within an instance body, then all visibility has been
       --  established already and there is no need to install the package.
 
-      if Install
-        and then not In_Instance_Body
-      then
+      if Install and then not In_Instance_Body then
          Push_Scope (Scop);
          Install_Visible_Declarations (Scop);
          Install_Private_Declarations (Scop);

gcc/ada/freeze.adb

@@ -680,14 +680,15 @@ package body Freeze is
             declare
                O_Ent : Entity_Id;
                Off   : Boolean;
+
             begin
                Find_Overlaid_Entity (Addr, O_Ent, Off);
 
                if Ekind (O_Ent) = E_Constant
                  and then Etype (O_Ent) = Typ
                  and then Present (Constant_Value (O_Ent))
-                 and then Compile_Time_Compare (
-                            Init,
+                 and then Compile_Time_Compare
+                            (Init,
                              Constant_Value (O_Ent),
                              Assume_Valid => True) = EQ
                then

gcc/ada/sem_ch13.adb

@@ -4725,11 +4725,13 @@ package body Sem_Ch13 is
                   Find_Overlaid_Entity (N, O_Ent, Off);
 
                   if Present (O_Ent) then
+
                      --  If the object overlays a constant object, mark it so
 
                      if Is_Constant_Object (O_Ent) then
                         Set_Overlays_Constant (U_Ent);
                      end if;
+
                   else
                      --  If this is not an overlay, mark a variable as being
                      --  volatile to prevent unwanted optimizations. It's a
@@ -4744,9 +4746,9 @@ package body Sem_Ch13 is
                      end if;
                   end if;
 
-                  --  Overlaying controlled objects is erroneous.
-                  --  Emit warning but continue analysis because program is
-                  --  itself legal, and back-end must see address clause.
+                  --  Overlaying controlled objects is erroneous. Emit warning
+                  --  but continue analysis because program is itself legal,
+                  --  and back-end must see address clause.
 
                   if Present (O_Ent)
                     and then (Has_Controlled_Component (Etype (O_Ent))

gcc/ada/sem_util.adb

@@ -16267,6 +16267,7 @@ package body Sem_Util is
                   Addr  : constant Node_Id := Address_Clause (Ent);
                   O_Ent : Entity_Id;
                   Off   : Boolean;
+
                begin
                   Find_Overlaid_Entity (Addr, O_Ent, Off);