diff options
author | Vincent Celier <celier@adacore.com> | 2005-06-16 10:44:38 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-06-16 10:44:38 +0200 |
commit | a493557f3ac51eb4c8967a5816f980ca547c2365 (patch) | |
tree | 3390ad3df2d970f1a21ad81883e24f66f98535e1 /gcc/ada/prj-tree.ads | |
parent | 88664966ce2f31c5200f94b0a45c6abe2d41de1f (diff) | |
download | gcc-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.ads | 17 |
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: |