mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-24 00:49:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

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

From-SVN: r146958
This commit is contained in:
Robert Dewar 2009-04-29 12:52:06 +00:00 committed by Arnaud Charlet
parent fb1949a007
commit 3c63845669
3 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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

6
gcc/ada/prj-proc.adb
View File

@ -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

6
gcc/ada/prj.ads
View File

@ -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;