diff options
author | Emmanuel Briot <briot@adacore.com> | 2009-07-13 09:04:17 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 11:04:17 +0200 |
commit | fc2c32e2a1de9332cf7dbe90f7bd7600945999c3 (patch) | |
tree | 0248d58807123b435413867f377c3448a7f12aef /gcc/ada/clean.adb | |
parent | 1629f7005208e42cede66374861c211c5a6d85e8 (diff) | |
download | gcc-fc2c32e2a1de9332cf7dbe90f7bd7600945999c3.zip gcc-fc2c32e2a1de9332cf7dbe90f7bd7600945999c3.tar.gz gcc-fc2c32e2a1de9332cf7dbe90f7bd7600945999c3.tar.bz2 |
gnatcmd.adb, [...] (Immediate_Directory_Of): Removed.
2009-07-13 Emmanuel Briot <briot@adacore.com>
* gnatcmd.adb, make.adb, mlib-prj.adb, prj-part.adb, mlib.adb,
prj.adb, prj.ads, clean.adb, prj-nmsc.adb, prj-nmsc.ads, prj-pars.adb,
prj-pars.ads, prj-conf.adb, prj-conf.ads, prj-tree.adb,
prj-tree.ads (Immediate_Directory_Of): Removed.
(Prj.Pars): Now parse the project simulating a default config file.
(Add_Default_GNAT_Naming_Scheme): New subprogram
(Check_Naming_Multi_Lang): Fix default value for Dot_Replacement.
Remove gnatmake-specific parsing of source files.
(Check_Illegal_Suffix): Renames Is_Illegal_Suffix, since it now raises
the error itself to provide more precise diagnostics.
(Process_Exceptions_Unit_Based): Avoid duplicate error message when
a unit belongs to several projects.
(Copy_Interface_Sources): Search the full path of files to copy in the
list of sources of the application rather than in the list of units.
(Parse_Project_And_Apply_Config): Do not reset the name of the main
project file.
(Check_File): Use htables to find out whether a source is duplicated.
(Add_Source): check whether the source or unit were already seen earlier
* gcc-interface/Makefile.in: Update gnatmake dependencies.
From-SVN: r149557
Diffstat (limited to 'gcc/ada/clean.adb')
-rw-r--r-- | gcc/ada/clean.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index e909cae..64f8045 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -1391,8 +1391,7 @@ package body Clean is (Project => Main_Project, In_Tree => Project_Tree, Project_File_Name => Project_File_Name.all, - Packages_To_Check => Packages_To_Check_By_Gnatmake, - Is_Config_File => False); + Packages_To_Check => Packages_To_Check_By_Gnatmake); if Main_Project = No_Project then Fail ("""" & Project_File_Name.all & """ processing failed"); |