2007-08-14 Vincent Celier <celier@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / prj-tree.ads

diff --git a/gcc/ada/prj-tree.ads b/gcc/ada/prj-tree.ads
index 470e0a8..b0a9bd6 100644 (file)
--- a/gcc/ada/prj-tree.ads
+++ b/gcc/ada/prj-tree.ads
@@ -29,6 +29,8 @@
 with GNAT.Dynamic_HTables;
 with GNAT.Dynamic_Tables;
 
+with Table;
+
 with Prj.Attr; use Prj.Attr;
 
 package Prj.Tree is
@@ -196,8 +198,11 @@ package Prj.Tree is
    --  The following query functions are part of the abstract interface
    --  of the Project File tree. They provide access to fields of a project.
 
-   --  In the following, there are "valid if" comments, but no indication
-   --  of what happens if they are called with invalid arguments ???
+   --  The access functions should be called only with valid arguments.
+   --  For each function the condition of validity is specified. If an access
+   --  function is called with invalid arguments, then exception
+   --  Assertion_Error is raised if assertions are enabled, otherwise the
+   --  behaviour is not defined and may result in a crash.
 
    function Name_Of
      (Node    : Project_Node_Id;
@@ -1206,7 +1211,8 @@ package Prj.Tree is
          --  Node of the project in table Project_Nodes
 
          Canonical_Path : Path_Name_Type;
-         --  Resolved and canonical path of the project file
+         --  Resolved and canonical path of a real project file.
+         --  No_Name in case of virtual projects.
 
          Extended : Boolean;
          --  True when the project is being extended by another project