diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-04-29 12:52:06 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-29 14:52:06 +0200 |
| commit | 3c63845669fbdb489b1a56e30aeba51d6dbbe4af (patch) | |
| tree | cf2c6725524c721b270eaf71528addf8a331c96c /gcc | |
| parent | fb1949a00757b90f2bb0ec18e543095323b8f74a (diff) | |
| download | gcc-3c63845669fbdb489b1a56e30aeba51d6dbbe4af.zip gcc-3c63845669fbdb489b1a56e30aeba51d6dbbe4af.tar.gz gcc-3c63845669fbdb489b1a56e30aeba51d6dbbe4af.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -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 86bb900..6a3b4f4 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 b302972..31efd81 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 c08abf5..83f4944 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; |