Code clean up.

From-SVN: r207263

diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb
index 53847350ed193a0defe718596289279b9499579d..771f83ac83e1a37837e3dfe8db160c2f316a4fe0 100644 (file)
--- a/gcc/ada/prj-part.adb
+++ b/gcc/ada/prj-part.adb
@@ -155,8 +155,7 @@ package body Prj.Part is
      (Flags   : Processing_Flags;
       In_Tree : Project_Node_Tree_Ref;
       Project : Project_Node_Id);
-   --  Check that a non aggregate project does not import any aggregate
-   --  project.
+   --  Check that a non aggregate project does not import an aggregate project
 
    procedure Create_Virtual_Extending_Project
      (For_Project     : Project_Node_Id;
@@ -1116,18 +1115,19 @@ package body Prj.Part is
       In_Tree : Project_Node_Tree_Ref;
       Project : Project_Node_Id)
    is
-      With_Clause, Imported : Project_Node_Id;
+      With_Clause : Project_Node_Id;
+      Imported    : Project_Node_Id;
+
    begin
       if Project_Qualifier_Of (Project, In_Tree) /= Aggregate then
          With_Clause := First_With_Clause_Of (Project, In_Tree);
-
          while Present (With_Clause) loop
             Imported := Project_Node_Of (With_Clause, In_Tree);
 
             if Project_Qualifier_Of (Imported, In_Tree) = Aggregate then
                Error_Msg_Name_1 := Name_Id (Path_Name_Of (Imported, In_Tree));
-               Error_Msg (Flags, "cannot import aggregate project %%",
-                          Token_Ptr);
+                  Error_Msg
+                    (Flags, "cannot import aggregate project %%", Token_Ptr);
                exit;
             end if;