diff options
Diffstat (limited to 'gcc/ada/atree.adb')
| -rw-r--r-- | gcc/ada/atree.adb | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index 9375087..457fa62 100644 --- a/gcc/ada/atree.adb +++ b/gcc/ada/atree.adb @@ -594,6 +594,10 @@ package body Atree is Set_Is_Ignored_Ghost_Node (New_Id); end if; + -- Clear Needs_Actual_Check to False + + Set_Needs_Actuals_Check (New_Id, False); + -- Specifically copy Paren_Count to deal with creating new table entry -- if the parentheses count is at the maximum possible value already. @@ -1489,6 +1493,15 @@ package body Atree is Nodes.Table (New_Node).Rewrite_Ins := True; end Mark_Rewrite_Insertion; + ------------------------- + -- Needs_Actuals_Check -- + ------------------------- + + function Needs_Actuals_Check (N : Node_Id) return Boolean is + begin + return Flags.Table (N).Needs_Actuals_Check; + end Needs_Actuals_Check; + -------------- -- New_Copy -- -------------- @@ -2097,6 +2110,15 @@ package body Atree is Flags.Table (N).Is_Ignored_Ghost_Node := Val; end Set_Is_Ignored_Ghost_Node; + ----------------------------- + -- Set_Needs_Actuals_Check -- + ----------------------------- + + procedure Set_Needs_Actuals_Check (N : Node_Id; Val : Boolean := True) is + begin + Flags.Table (N).Needs_Actuals_Check := Val; + end Set_Needs_Actuals_Check; + ----------------------- -- Set_Original_Node -- ----------------------- |