diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0137afe54b6..c8e27d2e08d 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb
index 2e1b8dd8182..b0a9fd1c84c 100644
--- a/gcc/ada/gnatcmd.adb
+++ b/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
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb
index c3cb4b6e351..7c5d5f3e16b 100644
--- a/gcc/ada/prj-nmsc.adb
+++ b/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;
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb
index 97b23bd413e..c480cf33a92 100644
--- a/gcc/ada/prj.adb
+++ b/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.