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,8 +9962,7 @@ 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)) =
+                        and then Nkind (Formal_Type_Definition (Decl)) =
                                        N_Formal_Private_Type_Definition
                         and then Needs_Initialized_Actual
                                    (Formal_Type_Definition (Decl)))
@@ -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,8 +852,8 @@ 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);
          end if;