From: Piotr Trojanek Date: Mon, 13 Jul 2020 09:47:16 +0000 (+0200) Subject: [Ada] Minor reorder subprogram declarations alphabetically X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=87eb6d2c2a9a9fbea23b91c01fa64fcf1f3825df;p=gcc.git [Ada] Minor reorder subprogram declarations alphabetically gcc/ada/ * exp_util.ads: Reorder declaration. --- diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index bde640f5a4b..b3073bc49e9 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -982,6 +982,11 @@ package Exp_Util is -- If so, returns the value K, otherwise returns zero. The caller checks -- that N is of an integer type. + function Predicate_Check_In_Scope (N : Node_Id) return Boolean; + -- Return True if predicate checks should be generated in the current + -- scope on the given node. Will return False for example when the current + -- scope is a predefined primitive operation. + procedure Process_Statements_For_Controlled_Objects (N : Node_Id); -- N is a node which contains a non-handled statement list. Inspect the -- statements looking for declarations of controlled objects. If at least @@ -1199,11 +1204,6 @@ package Exp_Util is function Within_Case_Or_If_Expression (N : Node_Id) return Boolean; -- Determine whether arbitrary node N is within a case or an if expression - function Predicate_Check_In_Scope (N : Node_Id) return Boolean; - -- Return True if predicate checks should be generated in the current - -- scope on the given node. Will return False for example when the current - -- scope is a predefined primitive operation. - private pragma Inline (Duplicate_Subexpr); pragma Inline (Force_Evaluation);