diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-06 11:11:07 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-06 11:11:07 +0100 |
| commit | a0367a97c5b4c714b43066ea44c66333f0526056 (patch) | |
| tree | fa134c2379a030767243524185079b49ece51c23 /gcc/ada/prj-util.adb | |
| parent | ce3904da34e70f926123e730107380dede9353d3 (diff) | |
| download | gcc-a0367a97c5b4c714b43066ea44c66333f0526056.zip gcc-a0367a97c5b4c714b43066ea44c66333f0526056.tar.gz gcc-a0367a97c5b4c714b43066ea44c66333f0526056.tar.bz2 | |
[multiple changes]
2014-02-06 Pascal Obry <obry@adacore.com>
* prj-util.adb (For_Interface_Sources): Fix handling of required
bodies for aggregate libs.
2014-02-06 Robert Dewar <dewar@adacore.com>
* nlists.ads: Minor comment clarifications.
2014-02-06 Robert Dewar <dewar@adacore.com>
* gnat1drv.adb (Adjust_Global_Switches): Set Modify_Tree_For_C
if gnatd.V set.
* opt.ads (Modify_Tree_For_C): New flag.
* output.ads, output.adb (Last_Char): New function.
2014-02-06 Pascal Obry <obry@adacore.com>
* projects.texi, prj-env.adb (Initialize_Default_Project_Path): Add
share/gpr for cross-builds.
From-SVN: r207542
Diffstat (limited to 'gcc/ada/prj-util.adb')
| -rw-r--r-- | gcc/ada/prj-util.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb index 625bae1..d369ae2 100644 --- a/gcc/ada/prj-util.adb +++ b/gcc/ada/prj-util.adb @@ -530,7 +530,11 @@ package body Prj.Util is -- Now handle the bodies and separates if needed if Deps.Length /= 0 then - Iter := For_Each_Source (Tree, Project); + if Project.Qualifier = Aggregate_Library then + Iter := For_Each_Source (Tree); + else + Iter := For_Each_Source (Tree, Project); + end if; loop Sid := Element (Iter); |