diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-05-15 14:06:55 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-05-15 14:06:55 +0200 |
| commit | 5b5b27adff45664299c19f4666e078f4acecfdf7 (patch) | |
| tree | 01c416110922a7e372c9c428f0077e8b755bd4ee /gcc/ada/prj-env.adb | |
| parent | 053cf9940a4086500ebaa994d29b894e8f5ed71a (diff) | |
| download | gcc-5b5b27adff45664299c19f4666e078f4acecfdf7.zip gcc-5b5b27adff45664299c19f4666e078f4acecfdf7.tar.gz gcc-5b5b27adff45664299c19f4666e078f4acecfdf7.tar.bz2 | |
[multiple changes]
2012-05-15 Thomas Quinot <quinot@adacore.com>
* uintp.adb (Image_Uint): Use UI_Div_Rem to get quotient and
remainder of U / Base in a single operation.
2012-05-15 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, inline.adb, sem_ch10.adb, prj.ads, sem_util.adb,
a-ngelfu.ads, exp_ch4.adb, exp_ch6.adb, aspects.ads, sem_ch6.adb,
vms_data.ads, exp_ch3.adb, prj-env.adb: Minor reformatting.
From-SVN: r187529
Diffstat (limited to 'gcc/ada/prj-env.adb')
| -rw-r--r-- | gcc/ada/prj-env.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb index ae0fd18..dac6512 100644 --- a/gcc/ada/prj-env.adb +++ b/gcc/ada/prj-env.adb @@ -754,7 +754,7 @@ package body Prj.Env is exit when Data = No_Source; if Data.Unit /= No_Unit_Index then - if Data.Locally_Removed and then (not Data.Suppressed) then + if Data.Locally_Removed and then not Data.Suppressed then Fmap.Add_Forbidden_File_Name (Data.File); else Fmap.Add_To_File_Map @@ -829,7 +829,7 @@ package body Prj.Env is Source := Prj.Element (Iter); exit when Source = No_Source; - if (not Source.Suppressed) + if not Source.Suppressed and then Source.Replaced_By = No_Source and then Source.Path.Name /= No_Path and then (Source.Language.Config.Kind = File_Based |