Commit 3c638456 by Robert Dewar Committed by Arnaud Charlet

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
parent fb1949a0
2009-04-29 Robert Dewar <dewar@adacore.com>
* prj-proc.adb, prj.ads: Minor reformatting
2009-04-29 Eric Botcazou <ebotcazou@adacore.com> 2009-04-29 Eric Botcazou <ebotcazou@adacore.com>
* exp_ch4.adb (Expand_N_Conditional_Expression): Set the SLOC of an * exp_ch4.adb (Expand_N_Conditional_Expression): Set the SLOC of an
......
...@@ -87,7 +87,7 @@ package body Prj.Proc is ...@@ -87,7 +87,7 @@ package body Prj.Proc is
-- Set all projects to not checked, then call Recursive_Check for the -- Set all projects to not checked, then call Recursive_Check for the
-- main project Project. Project is set to No_Project if errors occurred. -- main project Project. Project is set to No_Project if errors occurred.
-- Current_Dir is for optimization purposes, avoiding extra system calls. -- 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 procedure Copy_Package_Declarations
(From : Declarations; (From : Declarations;
......
...@@ -932,7 +932,7 @@ package Prj is ...@@ -932,7 +932,7 @@ package Prj is
procedure Free_List procedure Free_List
(List : in out Project_List; (List : in out Project_List;
Free_Project : Boolean); 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 type Response_File_Format is
(None, (None,
...@@ -1116,7 +1116,7 @@ package Prj is ...@@ -1116,7 +1116,7 @@ package Prj is
Path : Path_Information := No_Path_Information; Path : Path_Information := No_Path_Information;
-- The path name of the project file. This include base name of the -- The path name of the project file. This include base name of the
-- project file -- project file.
Virtual : Boolean := False; Virtual : Boolean := False;
-- True for virtual extending projects -- True for virtual extending projects
...@@ -1315,7 +1315,7 @@ package Prj is ...@@ -1315,7 +1315,7 @@ package Prj is
function Is_Extending function Is_Extending
(Extending : Project_Id; (Extending : Project_Id;
Extended : Project_Id) return Boolean; 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 function Is_A_Language
(Project : Project_Id; (Project : Project_Id;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment