diff options
Diffstat (limited to 'gcc/ada/prj-tree.adb')
| -rw-r--r-- | gcc/ada/prj-tree.adb | 29 |
1 files changed, 28 insertions, 1 deletions
diff --git a/gcc/ada/prj-tree.adb b/gcc/ada/prj-tree.adb index 6587d35300b..74cd73d7b13 100644 --- a/gcc/ada/prj-tree.adb +++ b/gcc/ada/prj-tree.adb @@ -166,7 +166,8 @@ package body Prj.Tree is Field1 => Empty_Node, Field2 => Empty_Node, Field3 => Empty_Node, - Case_Insensitive => False); + Case_Insensitive => False, + Extending_All => False); return Project_Nodes.Last; end Default_Project_Node; @@ -485,6 +486,19 @@ package body Prj.Tree is return Project_Nodes.Table (Node).Field1; end First_With_Clause_Of; + ---------------------- + -- Is_Extending_All -- + ---------------------- + + function Is_Extending_All (Node : Project_Node_Id) return Boolean is + begin + pragma Assert + (Node /= Empty_Node + and then + Project_Nodes.Table (Node).Kind = N_Project); + return Project_Nodes.Table (Node).Extending_All; + end Is_Extending_All; + ---------- -- Hash -- ---------- @@ -1237,6 +1251,19 @@ package body Prj.Tree is Project_Nodes.Table (Node).Field1 := To; end Set_First_With_Clause_Of; + -------------------------- + -- Set_Is_Extending_All -- + -------------------------- + + procedure Set_Is_Extending_All (Node : Project_Node_Id) is + begin + pragma Assert + (Node /= Empty_Node + and then + Project_Nodes.Table (Node).Kind = N_Project); + Project_Nodes.Table (Node).Extending_All := True; + end Set_Is_Extending_All; + ----------------- -- Set_Kind_Of -- ----------------- |
