diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-21 13:08:32 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-21 13:08:32 +0100 |
commit | d781a615178f19d07f64ae7acb6767f1b25b4a08 (patch) | |
tree | 26ca1c255dd04777bafb497cf327cb8fe206d9b8 /gcc/ada/prj-nmsc.adb | |
parent | dea1d3dcea17dfb21bf403133dcc6acd0cad6c29 (diff) | |
download | gcc-d781a615178f19d07f64ae7acb6767f1b25b4a08.zip gcc-d781a615178f19d07f64ae7acb6767f1b25b4a08.tar.gz gcc-d781a615178f19d07f64ae7acb6767f1b25b4a08.tar.bz2 |
[multiple changes]
2011-12-21 Arnaud Charlet <charlet@adacore.com>
* comperr.adb (Delete_SCIL_Files): Also delete .scilx files.
Fix implementation for child packages and package specs.
(Delete_SCIL_Files.Decode_Name_Buffer): New function.
2011-12-21 Robert Dewar <dewar@adacore.com>
* err_vars.ads, a-cdlili.adb, a-cfdlli.ads, prj.adb, prj-nmsc.adb,
a-cbdlli.adb, a-cbdlli.ads, a-cfdlli.adb: Minor reformatting.
2011-12-21 Vincent Pucci <pucci@adacore.com>
* s-diflio.adb, s-diflio.ads, s-diinio.adb, s-diinio.ads,
s-llflex.ads: Fix header.
From-SVN: r182578
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
-rw-r--r-- | gcc/ada/prj-nmsc.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index af725de..b018026 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -1042,7 +1042,6 @@ package body Prj.Nmsc is (Project : Project_Id; Data : in out Tree_Processing_Data) is - procedure Check_Not_Defined (Name : Name_Id); -- Report an error if Var is defined @@ -1065,6 +1064,8 @@ package body Prj.Nmsc is end if; end Check_Not_Defined; + -- Start of processing for Check_Not_Defined + begin Check_Not_Defined (Snames.Name_Library_Dir); Check_Not_Defined (Snames.Name_Library_Interface); @@ -1116,9 +1117,9 @@ package body Prj.Nmsc is Check_Configuration (Project, Data); + -- For aggregate project checks that no library attributes are defined + if Project.Qualifier = Aggregate then - -- For aggregate project checks that no library attributes are - -- defined. Check_Aggregate (Project, Data); else |