diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-29 12:52:06 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-29 12:52:06 +0000 |
| commit | 14997bcdd8c15996ecf8e7d41d439024919b6495 (patch) | |
| tree | cf2c6725524c721b270eaf71528addf8a331c96c | |
| parent | b2316500ede804ee32fa28a9ac14597990e855de (diff) | |
| download | gcc-14997bcdd8c15996ecf8e7d41d439024919b6495.tar.gz | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/prj-proc.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/prj.ads | 6 |
3 files changed, 10 insertions, 6 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 86bb900a485..6a3b4f4fff7 100644 --- 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 b302972732b..31efd8199a2 100644 --- 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 c08abf5dd21..83f49442617 100644 --- 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; |