From 00e1556e5185b61d05ddc694678d9ac3ae6eca75 Mon Sep 17 00:00:00 2001 From: charlet Date: Fri, 22 May 2015 10:30:37 +0000 Subject: 2015-05-22 Robert Dewar * 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 --- gcc/ada/atree.ads | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'gcc/ada/atree.ads') 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. -- cgit v1.2.1