summaryrefslogtreecommitdiff
path: root/gcc/ada/clean.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-07-13 10:52:34 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-07-13 10:52:34 +0000
commit5d6b98f60dbf269c822dce4af2b15d341a8f22f4 (patch)
tree21ef9fb1d95b2a33218ce793d8e33d15360d0784 /gcc/ada/clean.adb
parentd15bad045d8514e6c767e0bdc1cd2b2956274dbd (diff)
downloadgcc-5d6b98f60dbf269c822dce4af2b15d341a8f22f4.tar.gz
2009-07-13 Emmanuel Briot <briot@adacore.com>
* prj.adb, prj.ads, prj-env.adb, prj-conf.adb, prj-tree.adb, mlib-prj.adb (Private_Part.Ada_Prj_Objects_File_Set, Ada_Prj_Include_File_Set): Removed, since not needed Code clean up. 2009-07-13 Ed Schonberg <schonberg@adacore.com> * sem_ch4.adb (Analyze_Set_Membership): New procedure, subsidiary of Analyze_Membership_Op. * sem_res.adb (Resolve_Set_Membership): New procedure, subsidiary of Resolve_Membership_Op. * exp_ch4.adb (Expand_Set_Membership): New procedure, subsidiary of Expand_N_In. 2009-07-13 Robert Dewar <dewar@adacore.com> * clean.adb: Minor reformattting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149569 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/clean.adb')
-rw-r--r--gcc/ada/clean.adb11
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb
index e4d438732b5..790b8423529 100644
--- a/gcc/ada/clean.adb
+++ b/gcc/ada/clean.adb
@@ -1045,13 +1045,14 @@ package body Clean is
Proj := Project_Tree.Projects;
while Proj /= null loop
- -- for gnatmake, when the project specifies more than
- -- Ada as a language (even if course we could not find
- -- any source file for the other languages), we will
- -- take all object files found in the object
+ -- For gnatmake, when the project specifies more than
+ -- just Ada as a language (even if course we could not
+ -- find any source file for the other languages), we
+ -- will take all the object files found in the object
-- directories. Since we know the project supports at
-- least Ada, we just have to test whether it has at
- -- least two languages, and not care about the sources
+ -- least two languages, and we do not care about the
+ -- sources.
if Proj.Project.Languages /= null
and then Proj.Project.Languages.Next /= null