diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-19 10:30:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-19 10:30:52 +0000 |
| commit | d03ada96eadcb0e0b656d7ce91533d4f63d43d9b (patch) | |
| tree | 63878f8259d12a16d22466ef0e63bbf4e5bd46e5 /gcc/ada/exp_ch9.adb | |
| parent | aee37720d3214d4a2d69b6597d7c7f1f76e09af1 (diff) | |
| download | gcc-d03ada96eadcb0e0b656d7ce91533d4f63d43d9b.tar.gz | |
Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165693 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 35 |
1 files changed, 18 insertions, 17 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 171c81cc48d..56ce9a7ee8e 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -1661,21 +1661,22 @@ package body Exp_Ch9 is Make_Parameter_Specification (Loc, Defining_Identifier => Index, Parameter_Type => - New_Occurrence_Of (Entry_Index_Type (E), Loc))); + New_Occurrence_Of (Entry_Index_Type (E), Loc))); - Entry_Name := Make_Indexed_Component (Loc, - Prefix => Entry_Name, - Expressions => New_List (New_Occurrence_Of (Index, Loc))); + Entry_Name := + Make_Indexed_Component (Loc, + Prefix => Entry_Name, + Expressions => New_List (New_Occurrence_Of (Index, Loc))); end; end if; Entry_Call := Make_Procedure_Call_Statement (Loc, - Name => Entry_Name, + Name => Entry_Name, Parameter_Associations => Actuals); - -- Now add formals that match those of the entry, and build actuals - -- for the nested entry call. + -- Now add formals that match those of the entry, and build actuals for + -- the nested entry call. declare Form : Entity_Id; @@ -1689,8 +1690,8 @@ package body Exp_Ch9 is Parm_Spec := Make_Parameter_Specification (Loc, Defining_Identifier => New_Form, - Out_Present => Out_Present (Parent (Form)), - In_Present => In_Present (Parent (Form)), + Out_Present => Out_Present (Parent (Form)), + In_Present => In_Present (Parent (Form)), Parameter_Type => New_Occurrence_Of (Etype (Form), Loc)); Append (Parm_Spec, Specs); @@ -1728,16 +1729,16 @@ package body Exp_Ch9 is Set_PPC_Wrapper (E, Wrapper_Id); Wrapper_Body := Make_Subprogram_Body (Loc, - Specification => + Specification => Make_Procedure_Specification (Loc, - Defining_Unit_Name => Wrapper_Id, + Defining_Unit_Name => Wrapper_Id, Parameter_Specifications => Specs), - Declarations => Decls, - Handled_Statement_Sequence => - Make_Handled_Sequence_Of_Statements (Loc, - Statements => New_List (Entry_Call))); + Declarations => Decls, + Handled_Statement_Sequence => + Make_Handled_Sequence_Of_Statements (Loc, + Statements => New_List (Entry_Call))); - -- The wrapper body is analyzed when the enclosing type is frozen. + -- The wrapper body is analyzed when the enclosing type is frozen Append_Freeze_Action (Defining_Entity (Decl), Wrapper_Body); end Build_PPC_Wrapper; @@ -1857,7 +1858,7 @@ package body Exp_Ch9 is Nam := Make_Selected_Component (Loc, - Prefix => + Prefix => Unchecked_Convert_To (Corresponding_Concurrent_Type (Obj_Typ), Conv_Id), Selector_Name => New_Reference_To (Subp_Id, Loc)); |