diff options
author | Robert Dewar <dewar@adacore.com> | 2009-04-24 14:56:55 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-24 16:56:55 +0200 |
commit | b178461a93752916e0ff817e7db879aa638ab956 (patch) | |
tree | 56b4938ef0298b639d0365d40d1e615bffb7c12e /gcc/ada/make.adb | |
parent | e1c9f239f3b3a5cea97c38f8b46a0a308bc4e9dc (diff) | |
download | gcc-b178461a93752916e0ff817e7db879aa638ab956.zip gcc-b178461a93752916e0ff817e7db879aa638ab956.tar.gz gcc-b178461a93752916e0ff817e7db879aa638ab956.tar.bz2 |
mlib-prj.adb, [...]: Minor reformatting.
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.
From-SVN: r146732
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 c3db62f..bc40cba 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; |