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

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

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

From-SVN: r213238

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2da7f52..0180787 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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.

diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb
index 17e1ec4..5ba318c 100644 (file)
--- a/gcc/ada/prj-proc.adb
+++ b/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;

diff --git a/gcc/ada/prj-strt.adb b/gcc/ada/prj-strt.adb
index 1ae9647..f7cd336 100644 (file)
--- a/gcc/ada/prj-strt.adb
+++ b/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;