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

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

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

From-SVN: r213238

gcc/ada/ChangeLog

+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.

gcc/ada/prj-proc.adb

@@ -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;

gcc/ada/prj-strt.adb

@@ -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;