diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-22 10:30:37 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-22 10:30:37 +0000 |
| commit | 00e1556e5185b61d05ddc694678d9ac3ae6eca75 (patch) | |
| tree | b6bc7de2c27d87c0027c62ac94e2fb7165874082 /gcc/ada/atree.ads | |
| parent | 5d9051d429b5f911bb70f519427c4f266eb26099 (diff) | |
| download | gcc-00e1556e5185b61d05ddc694678d9ac3ae6eca75.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223538 138bc75d-0d04-0410-961f-82ee72b054a4
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 c3f9c5c7b64..e217ca0f462 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. |