diff options
| author | Robert Dewar <dewar@adacore.com> | 2015-05-22 10:25:20 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-22 12:25:20 +0200 |
| commit | a02c5a694eab9da43296e18b0c669e731c31427a (patch) | |
| tree | 1e54597e4f87629dea72d3cef787c9173b1bcbfe /gcc/ada/atree.adb | |
| parent | 7a391e42e75bb13e036d521be84714a5ced2a4c4 (diff) | |
| download | gcc-a02c5a694eab9da43296e18b0c669e731c31427a.zip gcc-a02c5a694eab9da43296e18b0c669e731c31427a.tar.gz gcc-a02c5a694eab9da43296e18b0c669e731c31427a.tar.bz2 | |
atree.adb, atree.ads (Needs_Actuals_Check): New flag.
2015-05-22 Robert Dewar <dewar@adacore.com>
* atree.adb, atree.ads (Needs_Actuals_Check): New flag.
From-SVN: r223536
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 -- ----------------------- |