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

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

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

From-SVN: r146958

gcc/ada/ChangeLog

+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

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

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;