diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-24 14:56:55 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-24 14:56:55 +0000 |
| commit | 80709dc40f08366768b330543933c8e173c6c5d1 (patch) | |
| tree | 56b4938ef0298b639d0365d40d1e615bffb7c12e /gcc/ada/make.adb | |
| parent | 9844bcb4d1153f6ee5744c7f9201813b21284883 (diff) | |
| download | gcc-80709dc40f08366768b330543933c8e173c6c5d1.tar.gz | |
2009-04-24 Robert Dewar <dewar@adacore.com>
* mlib-prj.adb, prj-env.adb, prj-nmsc.adb, prj-proc.adb, make.adb,
clean.adb: Minor reformatting.
Minor code reorganization and message improvement.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146732 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/make.adb')
| -rw-r--r-- | gcc/ada/make.adb | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index c3db62f4c43..bc40cbab067 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -7136,8 +7136,7 @@ package body Make is Init_Q; end if; - -- And of course, we only insert in the Q if the source is not - -- marked. + -- And of course, only insert in the Q if the source is not marked if Sfile /= No_File and then not Is_Marked (Sfile, Index) then if Verbose_Mode then @@ -7253,8 +7252,8 @@ package body Make is Full_Lib_File : File_Name_Type) return Boolean is begin - -- There is something to check only when using project files. - -- Otherwise, this function returns True (last line of the function). + -- There is something to check only when using project files. Otherwise, + -- this function returns True (last line of the function). if Main_Project /= No_Project then declare @@ -7280,9 +7279,9 @@ package body Make is Path => Path_Name); Current_Verbosity := Saved_Verbosity; - -- If this source is in a project, check that the ALI file is - -- in its object directory. If it is not, return False, so that - -- the ALI file will not be skipped. + -- If this source is in a project, check that the ALI file is in + -- its object directory. If it is not, return False, so that the + -- ALI file will not be skipped. if Project /= No_Project then Data := Project_Tree.Projects.Table (Project); @@ -7548,10 +7547,9 @@ package body Make is Data.Depth := Depth; - List := Data.Imported_Projects; - -- Visit each imported project + List := Data.Imported_Projects; while List /= null loop Proj := List.Project; List := List.Next; |