diff options
Diffstat (limited to 'gcc/ada/exp_util.ads')
| -rw-r--r-- | gcc/ada/exp_util.ads | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index c7b5b8f8e6c..7058ceb887d 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -202,21 +202,7 @@ package Exp_Util is -- allocation, N is the declaration of the temporary variable which -- represents the expression of the original allocator node, otherwise N -- must be a free statement. If flag Is_Allocate is set, the generated - -- routine is allocate, deallocate otherwise. The generated routine is: - -- - -- F : constant Boolean := -- CW case - -- Ada.Tags.Needs_Finalization (<Expr>'Tag); -- CW case - -- - -- procedure Allocate / Deallocate - -- (P : Storage_Pool; - -- A : [out] Address; -- out is present for Allocate - -- S : Storage_Count; - -- L : Storage_Count) - -- is - -- begin - -- Allocate / Deallocate - -- (<Ptr_Typ collection>, A, S, L, [Needs_Header => F]); - -- end Allocate; + -- routine is allocate, deallocate otherwise. function Build_Runtime_Call (Loc : Source_Ptr; RE : RE_Id) return Node_Id; -- Build an N_Procedure_Call_Statement calling the given runtime entity. |