diff options
Diffstat (limited to 'gcc/ada/exp_ch9.ads')
| -rw-r--r-- | gcc/ada/exp_ch9.ads | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads index 76a888ed6d7..72060781470 100644 --- a/gcc/ada/exp_ch9.ads +++ b/gcc/ada/exp_ch9.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -164,6 +164,15 @@ package Exp_Ch9 is -- the Master_Id of the access type as the _Master parameter, and _Chain -- (defined above) as the _Chain parameter. + procedure Build_Task_Allocate_Block_With_Init_Stmts + (Actions : List_Id; + N : Node_Id; + Init_Stmts : List_Id); + -- Ada0Y (AI-287): Similar to previous routine, but used to expand alloca- + -- ted aggregates with default initialized components. Init_Stmts contains + -- the list of statements required to initialize the allocated aggregate. + -- It replaces the call to Init (Args) done by Build_Task_Allocate_Block. + function Concurrent_Ref (N : Node_Id) return Node_Id; -- Given the name of a concurrent object (task or protected object), or -- the name of an access to a concurrent object, this function returns an |