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

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

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

From-SVN: r182655

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0137afe54b68af2e06bf54ed5257d0d26c6aaa76..c8e27d2e08dcb38e250a7c3ced9d222e6b93eb0f 100644 (file)
--- 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 2e1b8dd818299d9e99688696984047abfa4cedcb..b0a9fd1c84cf10532a6a87b8c81e821a0e8c2f3c 100644 (file)
--- 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 c3cb4b6e351d33e6d21538d2a12ca0bb398c1b09..7c5d5f3e16b15aad54508af17e96c90c3d910d22 100644 (file)
--- 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 97b23bd413e9657c231f36788096b3126ac4a752..c480cf33a92d3fb2d70b43921c1729b8ec4f9433 100644 (file)
--- 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.