sinfo.ads, [...]: Minor reformatting.

2014-05-21  Robert Dewar  <dewar@adacore.com>

	* sinfo.ads, sem_ch12.adb, sem_warn.adb: Minor reformatting.

From-SVN: r210706

gcc/ada/ChangeLog

 2014-05-21  Robert Dewar  <dewar@adacore.com>
 
+	* sinfo.ads, sem_ch12.adb, sem_warn.adb: Minor reformatting.
+
+2014-05-21  Robert Dewar  <dewar@adacore.com>
+
 	* sem_elab.adb: Minor reformatting.
 	* s-taprop.ads: Minor comment fix.
 	* sem_ch8.adb (Analyze_Subprogram_Renaming): Remove call to

gcc/ada/sem_ch12.adb

@@ -9946,6 +9946,10 @@ package body Sem_Ch12 is
       --  appear uninitialized. This is suspicious, unless the actual is a
       --  fully initialized type.
 
+      -----------------------------
+      -- Check_Initialized_Types --
+      -----------------------------
+
       procedure Check_Initialized_Types is
          Decl   : Node_Id;
          Formal : Entity_Id;
@@ -9958,11 +9962,10 @@ package body Sem_Ch12 is
                  and then Needs_Initialized_Actual (Decl))
 
               or else (Nkind (Decl) = N_Formal_Type_Declaration
-                  and then
-                    Nkind (Formal_Type_Definition (Decl)) =
-                      N_Formal_Private_Type_Definition
-                  and then Needs_Initialized_Actual
-                     (Formal_Type_Definition (Decl)))
+                        and then Nkind (Formal_Type_Definition (Decl)) =
+                                       N_Formal_Private_Type_Definition
+                        and then Needs_Initialized_Actual
+                                   (Formal_Type_Definition (Decl)))
             then
                Formal := Defining_Identifier (Decl);
                Actual := First_Entity (Act_Decl_Id);
@@ -9980,9 +9983,8 @@ package body Sem_Ch12 is
                     and then Warn_On_No_Value_Assigned
                   then
                      Error_Msg_NE
-                       ("from its use in generic unit, actual for&"
-                          & " should be fully initialized type?",
-                          Actual, Formal);
+                       ("from its use in generic unit, actual for& should "
+                        & "be fully initialized type??", Actual, Formal);
                      exit;
                   end if;
 
@@ -9993,6 +9995,9 @@ package body Sem_Ch12 is
             Next (Decl);
          end loop;
       end Check_Initialized_Types;
+
+   --  Start of processing for Instantiate_Package_Body
+
    begin
       Gen_Body_Id := Corresponding_Body (Gen_Decl);
 

gcc/ada/sem_warn.adb

@@ -852,10 +852,10 @@ package body Sem_Warn is
          end if;
 
          if Res then
-            Error_Msg_N ("?!variable& of a generic type is "
-              & "potentially uninitialized", Ent);
+            Error_Msg_N ("?!variable& of a generic type is potentially "
+                         & "uninitialized", Ent);
             Error_Msg_NE ("\?instantiations must provide fully initialized "
-              & "type for&", Ent, T);
+                          & "type for&", Ent, T);
          end if;
 
          return Res;

gcc/ada/sinfo.ads

@@ -10953,7 +10953,7 @@ package Sinfo is
        (1 => True,    --  Expressions (List1)
         2 => False,   --  unused
         3 => True,    --  Prefix (Node3)
-        4 => False,    --  Generalized_Indexing (Node4-Sem)
+        4 => False,   --  Generalized_Indexing (Node4-Sem)
         5 => False),  --  Etype (Node5-Sem)
 
      N_Slice =>