diff options
Diffstat (limited to 'gcc/ada/prj-tree.adb')
| -rw-r--r-- | gcc/ada/prj-tree.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/prj-tree.adb b/gcc/ada/prj-tree.adb index 735b3fee9e9..e8603c67bfb 100644 --- a/gcc/ada/prj-tree.adb +++ b/gcc/ada/prj-tree.adb @@ -933,7 +933,9 @@ package body Prj.Tree is pragma Assert (Node /= Empty_Node and then - Project_Nodes.Table (Node).Kind = N_Project); + (Project_Nodes.Table (Node).Kind = N_Project + or else + Project_Nodes.Table (Node).Kind = N_With_Clause)); return Project_Nodes.Table (Node).Flag2; end Is_Extending_All; @@ -1947,7 +1949,9 @@ package body Prj.Tree is pragma Assert (Node /= Empty_Node and then - Project_Nodes.Table (Node).Kind = N_Project); + (Project_Nodes.Table (Node).Kind = N_Project + or else + Project_Nodes.Table (Node).Kind = N_With_Clause)); Project_Nodes.Table (Node).Flag2 := True; end Set_Is_Extending_All; |