aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/prj-tree.ads
diff options
context:
space:
mode:
authorVincent Celier <celier@adacore.com>2005-06-16 10:44:38 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2005-06-16 10:44:38 +0200
commita493557f3ac51eb4c8967a5816f980ca547c2365 (patch)
tree3390ad3df2d970f1a21ad81883e24f66f98535e1 /gcc/ada/prj-tree.ads
parent88664966ce2f31c5200f94b0a45c6abe2d41de1f (diff)
downloadgcc-a493557f3ac51eb4c8967a5816f980ca547c2365.zip
gcc-a493557f3ac51eb4c8967a5816f980ca547c2365.tar.gz
gcc-a493557f3ac51eb4c8967a5816f980ca547c2365.tar.bz2
prj-part.adb (Pre_Parse_Context_Clause): Call Set_Is_Not_Last_In_List when the project file in a with clause is not the...
2005-06-14 Vincent Celier <celier@adacore.com> * prj-part.adb (Pre_Parse_Context_Clause): Call Set_Is_Not_Last_In_List when the project file in a with clause is not the last one, that is the project file name is followed by a comma. * prj-pp.adb: (First_With_In_List): New Boolean global variable (Print): Issue list of project files separated by commas in with clauses according to the values returned by Is_Not_Last_In_List. * prj-tree.ads, prj-tree.adb: (Is_Not_Last_In_List): New function (Set_Is_Not_Last_In_List): New procedure From-SVN: r101054
Diffstat (limited to 'gcc/ada/prj-tree.ads')
-rw-r--r--gcc/ada/prj-tree.ads17
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/ada/prj-tree.ads b/gcc/ada/prj-tree.ads
index 692b3b6..5ed45b4 100644
--- a/gcc/ada/prj-tree.ads
+++ b/gcc/ada/prj-tree.ads
@@ -281,6 +281,12 @@ package Prj.Tree is
pragma Inline (Is_Extending_All);
-- Only valid for N_Project and N_With_Clause
+ function Is_Not_Last_In_List
+ (Node : Project_Node_Id;
+ In_Tree : Project_Node_Tree_Ref) return Boolean;
+ pragma Inline (Is_Not_Last_In_List);
+ -- Only valid for N_With_Clause
+
function First_Variable_Of
(Node : Project_Node_Id;
In_Tree : Project_Node_Tree_Ref) return Variable_Node_Id;
@@ -632,6 +638,11 @@ package Prj.Tree is
In_Tree : Project_Node_Tree_Ref);
pragma Inline (Set_Is_Extending_All);
+ procedure Set_Is_Not_Last_In_List
+ (Node : Project_Node_Id;
+ In_Tree : Project_Node_Tree_Ref);
+ pragma Inline (Set_Is_Not_Last_In_List);
+
procedure Set_First_Variable_Of
(Node : Project_Node_Id;
In_Tree : Project_Node_Tree_Ref;
@@ -949,6 +960,12 @@ package Prj.Tree is
-- N_Project_Declaration
-- - it indicates that there are unkept comments in the
-- project.
+ -- N_With_Clause
+ -- - it indicates that this is not the last with in a
+ -- with clause. It is set for "A", but not for "B" in
+ -- with "B";
+ -- and
+ -- with "A", "B";
Flag2 : Boolean := False;
-- This flag is significant only for: