diff options
Diffstat (limited to 'gcc/ada/exp_util.ads')
| -rw-r--r-- | gcc/ada/exp_util.ads | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 202ac3c..96d3894 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -756,11 +756,6 @@ package Exp_Util is -- Return a suitable standard integer type containing at least S bits and -- of the signedness given by Uns. - function Is_All_Null_Statements (L : List_Id) return Boolean; - -- Return True if all the items of the list are N_Null_Statement nodes. - -- False otherwise. True for an empty list. It is an error to call this - -- routine with No_List as the argument. - function Is_Displacement_Of_Object_Or_Function_Result (Obj_Id : Entity_Id) return Boolean; -- Determine whether Obj_Id is a source entity that has been initialized by @@ -870,11 +865,6 @@ package Exp_Util is -- list. If Warn is True, a warning will be output at the start of N -- indicating the deletion of the code. - function Known_Non_Negative (Opnd : Node_Id) return Boolean; - -- Given a node for a subexpression, determines if it represents a value - -- that cannot possibly be negative, and if so returns True. A value of - -- False means that it is not known if the value is positive or negative. - function Make_Invariant_Call (Expr : Node_Id) return Node_Id; -- Generate a call to the Invariant_Procedure associated with the type of -- expression Expr. Expr is passed as an actual parameter in the call. @@ -955,11 +945,6 @@ package Exp_Util is -- consist of constants, when the object has a nontrivial initialization -- or is controlled. - function Non_Limited_Designated_Type (T : Entity_Id) return Entity_Id; - -- An anonymous access type may designate a limited view. Check whether - -- non-limited view is available during expansion, to examine components - -- or other characteristics of the full type. - function OK_To_Do_Constant_Replacement (E : Entity_Id) return Boolean; -- This function is used when testing whether or not to replace a reference -- to entity E by a known constant value. Such replacement must be done @@ -1178,15 +1163,6 @@ package Exp_Util is -- Return the smallest standard integer type containing at least S bits and -- of the signedness given by Uns. - function Target_Has_Fixed_Ops - (Left_Typ : Entity_Id; - Right_Typ : Entity_Id; - Result_Typ : Entity_Id) return Boolean; - -- Returns True if and only if the target machine has direct support - -- for fixed-by-fixed multiplications and divisions for the given - -- operand and result types. This is called in package Exp_Fixd to - -- determine whether to expand such operations. - function Type_May_Have_Bit_Aligned_Components (Typ : Entity_Id) return Boolean; -- Determines if Typ is a composite type that has within it (looking down |