diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-09-02 07:02:25 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-02 09:02:25 +0200 |
| commit | 9fdb5d2171b7104581e0e80bfb8f527d37d93fcd (patch) | |
| tree | 48f9a9a0fa229e165398f959b2bb394b8c4cf126 /gcc/ada/prj-nmsc.adb | |
| parent | c6d5d1acc4760fbeca782550c88b0746022f8612 (diff) | |
| download | gcc-9fdb5d2171b7104581e0e80bfb8f527d37d93fcd.tar.gz | |
[multiple changes]
2011-09-02 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb: (Find_Sources): When the list of sources is
explicitly declared in an extending project, do not warn if a source
for an inherited naming exception is not found.
2011-09-02 Gary Dismukes <dismukes@adacore.com>
* exp_ch6.adb: (Is_Build_In_Place_Function_Call): Return False if
expansion is inactive.
2011-09-02 Ed Schonberg <schonberg@adacore.com>
* sem_util.adb (Note_Possible_Modification): If the entity
being modified is the renaming generated for an Ada2012 iterator
element, the enclosing container or array is modified as well.
From-SVN: r178434
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index bc356221080..1a8c2114c47 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -6407,8 +6407,9 @@ package body Prj.Nmsc is if Source.Index /= 0 then -- Only multi-unit files declare S : Source_Id := - Source_Files_Htable.Get - (Data.Tree.Source_Files_HT, Source.File); + Source_Files_Htable.Get + (Data.Tree.Source_Files_HT, Source.File); + begin while S /= null loop if S.Path /= No_Path_Information then @@ -6890,15 +6891,7 @@ package body Prj.Nmsc is Name_Loc.Source := Source; Source_Names_Htable.Set (Project.Source_Names, File_Name, Name_Loc); - end if; - --- if Source /= No_Source and then Source.Unit /= No_Unit_Index then --- Units_Htable.Set --- (Data.Tree.Units_HT, --- Source.Unit.Name, --- Source.Unit); --- end if; end if; end if; |