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

2011-12-23  Pascal Obry  <obry@adacore.com>

	* gnatcmd.adb, prj.adb, prj-nmsc.adb: Minor reformatting.

From-SVN: r182655

gcc/ada/ChangeLog

+2011-12-23  Pascal Obry  <obry@adacore.com>
+
+	* gnatcmd.adb, prj.adb, prj-nmsc.adb: Minor reformatting.
+
 2011-12-22  Hristian Kirtchev  <kirtchev@adacore.com>
 
 	* exp_ch7.adb (Build_Adjust_Or_Finalize_Statements): Create the objects

gcc/ada/gnatcmd.adb

@@ -2091,7 +2091,7 @@ begin
             begin
                if Pkg /= No_Package then
 
-                  --  First, check if there is a single main specified.
+                  --  First, check if there is a single main specified
 
                   for J in 1  .. Last_Switches.Last loop
                      if Last_Switches.Table (J) (1) /= '-' then

gcc/ada/prj-nmsc.adb

@@ -116,7 +116,7 @@ package body Prj.Nmsc is
    end record;
 
    No_File_Found : constant File_Found :=
-     (No_File, No_File, 0, False, No_Location);
+                     (No_File, No_File, 0, False, No_Location);
 
    package Excluded_Sources_Htable is new GNAT.Dynamic_HTables.Simple_HTable
      (Header_Num => Header_Num,
@@ -4847,7 +4847,7 @@ package body Prj.Nmsc is
                            (Get_Name_String (Lib_Symbol_Policy.Value));
 
             begin
-               --  Symbol policy must hove one of a limited number of values
+               --  Symbol policy must have one of a limited number of values
 
                if Value = "autonomous" or else Value = "default" then
                   Project.Symbol_Data.Symbol_Policy := Autonomous;

gcc/ada/prj.adb

@@ -523,6 +523,7 @@ package body Prj is
       Include_Aggregated : Boolean := True;
       Imported_First     : Boolean := False)
    is
+
       use Project_Boolean_Htable;
       Seen : Project_Boolean_Htable.Instance := Project_Boolean_Htable.Nil;
 
@@ -544,6 +545,7 @@ package body Prj is
 
       begin
          if not Get (Seen, Project) then
+
             --  Even if a project is aggregated multiple times, we will only
             --  return it once.