diff options
author | Robert Dewar <dewar@adacore.com> | 2015-05-22 10:30:37 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-22 12:30:37 +0200 |
commit | b502ba3c7b960e353e9226b69847adf368293009 (patch) | |
tree | b6bc7de2c27d87c0027c62ac94e2fb7165874082 /gcc/ada/atree.ads | |
parent | fd9574340563929af49f53a7911aaac882dc81f1 (diff) | |
download | gcc-b502ba3c7b960e353e9226b69847adf368293009.zip gcc-b502ba3c7b960e353e9226b69847adf368293009.tar.gz gcc-b502ba3c7b960e353e9226b69847adf368293009.tar.bz2 |
atree.adb, [...]: Change name Needs_Actuals_Check to Check_Actuals.
2015-05-22 Robert Dewar <dewar@adacore.com>
* atree.adb, atree.ads, treepr.adb: Change name Needs_Actuals_Check to
Check_Actuals.
* exp_ch4.adb (Expand_N_Op_Expon): Optimize 2**x in modular
and overflow cases.
From-SVN: r223538
Diffstat (limited to 'gcc/ada/atree.ads')
-rw-r--r-- | gcc/ada/atree.ads | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index c3f9c5c..e217ca0 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -608,6 +608,9 @@ package Atree is function Analyzed (N : Node_Id) return Boolean; pragma Inline (Analyzed); + function Check_Actuals (N : Node_Id) return Boolean; + pragma Inline (Check_Actuals); + function Comes_From_Source (N : Node_Id) return Boolean; pragma Inline (Comes_From_Source); @@ -620,9 +623,6 @@ package Atree is function Is_Ignored_Ghost_Node (N : Node_Id) return Boolean; pragma Inline (Is_Ignored_Ghost_Node); - function Needs_Actuals_Check (N : Node_Id) return Boolean; - pragma Inline (Needs_Actuals_Check); - function Nkind (N : Node_Id) return Node_Kind; pragma Inline (Nkind); @@ -898,6 +898,9 @@ package Atree is procedure Set_Analyzed (N : Node_Id; Val : Boolean := True); pragma Inline (Set_Analyzed); + procedure Set_Check_Actuals (N : Node_Id; Val : Boolean := True); + pragma Inline (Set_Check_Actuals); + procedure Set_Comes_From_Source (N : Node_Id; Val : Boolean); pragma Inline (Set_Comes_From_Source); -- Note that this routine is very rarely used, since usually the default @@ -914,9 +917,6 @@ package Atree is procedure Set_Is_Ignored_Ghost_Node (N : Node_Id; Val : Boolean := True); pragma Inline (Set_Is_Ignored_Ghost_Node); - procedure Set_Needs_Actuals_Check (N : Node_Id; Val : Boolean := True); - pragma Inline (Set_Needs_Actuals_Check); - procedure Set_Original_Node (N : Node_Id; Val : Node_Id); pragma Inline (Set_Original_Node); -- Note that this routine is used only in very peculiar cases. In normal @@ -4142,7 +4142,7 @@ package Atree is -- policy Ignore. The name of the flag should be Flag4, however this -- requires changing the names of all remaining 300+ flags. - Needs_Actuals_Check : Boolean; + Check_Actuals : Boolean; -- Flag set to indicate that the marked node is subject to the check -- for writable actuals. See xxx for more details. Again it would be -- more uniform to use some Flagx here, but that would be disruptive. |