OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

prj-proc.adb, [...]: Update comments. 

2014-07-30  Robert Dewar  <dewar@adacore.com>

	* prj-proc.adb, prj-strt.adb: Update comments.

From-SVN: r213238
This commit is contained in:
Robert Dewar 2014-07-30 10:03:14 +00:00 committed by Arnaud Charlet
parent 12e4e81ea5
commit 66288b9c11
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2014-07-30 Robert Dewar <dewar@adacore.com>
* prj-proc.adb, prj-strt.adb: Update comments.
2014-07-30 Gary Dismukes <dismukes@adacore.com>
* sinfo.ads, einfo.ads, checks.ads: Minor typo fix and reformatting.

4
gcc/ada/prj-proc.adb
View File

@ -121,7 +121,9 @@ package body Prj.Proc is
(Project : Project_Id;
With_Name : Name_Id;
No_Extending : Boolean := False) return Project_Id;
-- Find an imported or extended project of Project whose name is With_Name
-- Find an imported or extended project of Project whose name is With_Name.
-- When No_Extending is True, do not look for extending projects, returns
-- the exact project whose name is With_Name.
function Package_From
(Project : Project_Id;

3
gcc/ada/prj-strt.adb
View File

@ -1182,11 +1182,12 @@ package body Prj.Strt is
exit when Present (Current_Variable);
-- Please document this new test ???
if No (Parent_Project_Of (Proj, In_Tree)) then
Proj :=
Extended_Project_Of
(Project_Declaration_Of (Proj, In_Tree), In_Tree);
else
Proj := Parent_Project_Of (Proj, In_Tree);
end if;