2009-04-29 Robert Dewar <dewar@adacore.com>

	* prj-proc.adb, prj.ads: Minor reformatting

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146958 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 86bb900a485b6e107c116c1cb23e981e3ed3ce3a..6a3b4f4fff7904c177478039fc7af782375ad86a 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-29  Robert Dewar  <dewar@adacore.com>
+
+       * prj-proc.adb, prj.ads: Minor reformatting
+
 2009-04-29  Eric Botcazou  <ebotcazou@adacore.com>
 
        * exp_ch4.adb (Expand_N_Conditional_Expression): Set the SLOC of an

diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb
index b302972732bd2faa16df23866a15df596098014e..31efd8199a2d72e80e99e2aab71ec2bd96fbaace 100644 (file)
--- a/gcc/ada/prj-proc.adb
+++ b/gcc/ada/prj-proc.adb
@@ -87,7 +87,7 @@ package body Prj.Proc is
    --  Set all projects to not checked, then call Recursive_Check for the
    --  main project Project. Project is set to No_Project if errors occurred.
    --  Current_Dir is for optimization purposes, avoiding extra system calls.
-   --  Is_Config_File should be True if Project is a config file (.cgpr)
+   --  Is_Config_File should be True if Project is a config file (.cgpr).
 
    procedure Copy_Package_Declarations
      (From              : Declarations;
@@ -1235,8 +1235,8 @@ package body Prj.Proc is
       From_Project_Node_Tree : Project_Node_Tree_Ref;
       Report_Error           : Put_Line_Access;
       When_No_Sources        : Error_Warning := Error;
-      Reset_Tree             : Boolean := True;
-      Current_Dir            : String := "";
+      Reset_Tree             : Boolean       := True;
+      Current_Dir            : String        := "";
       Is_Config_File         : Boolean)
    is
    begin

diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads
index c08abf5dd213e51b7f3592c05ede0f1aedf829a8..83f49442617be816d528d2bd89d3b94347dc1f96 100644 (file)
--- a/gcc/ada/prj.ads
+++ b/gcc/ada/prj.ads
@@ -932,7 +932,7 @@ package Prj is
    procedure Free_List
      (List         : in out Project_List;
       Free_Project : Boolean);
-   --  Free the list of projects. If Free_Project, each project is also freed.
+   --  Free the list of projects, if Free_Project, each project is also freed
 
    type Response_File_Format is
      (None,
@@ -1116,7 +1116,7 @@ package Prj is
 
       Path : Path_Information := No_Path_Information;
       --  The path name of the project file. This include base name of the
-      --  project file
+      --  project file.
 
       Virtual : Boolean := False;
       --  True for virtual extending projects
@@ -1315,7 +1315,7 @@ package Prj is
    function Is_Extending
      (Extending : Project_Id;
       Extended  : Project_Id) return Boolean;
-   --  Return True if Extending is extending the Extended project.
+   --  Return True if Extending is extending the Extended project
 
    function Is_A_Language
      (Project       : Project_Id;