FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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;