diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-12 10:37:17 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-12 10:37:17 +0000 |
| commit | 10381db1982a29727016791fef6f38869fba0d36 (patch) | |
| tree | 3a9936f7e0b21e62376570606f3d5fdb3e85470f /gcc/ada/exp_ch9.adb | |
| parent | d0a9ea3b8db53d62a69562a2765b44df9197033c (diff) | |
| download | gcc-10381db1982a29727016791fef6f38869fba0d36.tar.gz | |
2012-07-12 Robert Dewar <dewar@adacore.com>
* exp_attr.adb, exp_ch9.adb, sem_ch9.adb, exp_aggr.adb: Minor
reformatting.
2012-07-12 Vincent Pucci <pucci@adacore.com>
* sem_dim.adb (Analyze_Dimension_Function_Call): Reformatting of error
msgs for elementary functions.
2012-07-12 Vincent Pucci <pucci@adacore.com>
* sem_attr.adb (Eval_Attribute): Minor reformatting.
2012-07-12 Pascal Obry <obry@adacore.com>
* prj-nmsc.adb (Check_Library_Attributes): Allow the same library
project in different project tree (different aggregated projects).
2012-07-12 Thomas Quinot <quinot@adacore.com>
* s-bytswa.adb, g-bytswa.adb, g-bytswa.ads, s-bytswa.ads: Further
reorganization of byte swapping routines.
2012-07-12 Ed Schonberg <schonberg@adacore.com>
* sem_disp.adb (Check_Dispatching_Context): Refine legality
checks on tagg indeterminate calls to abstract operations,
that appear in the context of other calls.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189436 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index bf1cbc48f23..bd476112f44 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -3084,7 +3084,7 @@ package body Exp_Ch9 is -- protected component. if Present (Comp) then - declare + Protected_Component_Ref : declare Comp_Decl : constant Node_Id := Parent (Comp); Comp_Sel_Nam : constant Node_Id := Name (Comp_Decl); Comp_Type : constant Entity_Id := Etype (Comp); @@ -3220,7 +3220,6 @@ package body Exp_Ch9 is procedure Process_Stmts (Stmts : List_Id) is Stmt : Node_Id; - begin Stmt := First (Stmts); while Present (Stmt) loop @@ -3229,6 +3228,8 @@ package body Exp_Ch9 is end loop; end Process_Stmts; + -- Start of processing for Protected_Component_Ref + begin -- Get the type size @@ -3436,23 +3437,24 @@ package body Exp_Ch9 is -- end loop; if Is_Procedure then - Stmts := New_List ( - Make_Procedure_Call_Statement (Loc, - Name => - New_Reference_To (RTE (RE_Atomic_Synchronize), Loc)), - Make_Loop_Statement (Loc, - Statements => New_List ( - Make_Block_Statement (Loc, - Declarations => Block_Decls, - Handled_Statement_Sequence => - Make_Handled_Sequence_Of_Statements (Loc, - Statements => Stmts))), - End_Label => Empty)); + Stmts := + New_List ( + Make_Procedure_Call_Statement (Loc, + Name => + New_Reference_To (RTE (RE_Atomic_Synchronize), Loc)), + Make_Loop_Statement (Loc, + Statements => New_List ( + Make_Block_Statement (Loc, + Declarations => Block_Decls, + Handled_Statement_Sequence => + Make_Handled_Sequence_Of_Statements (Loc, + Statements => Stmts))), + End_Label => Empty)); end if; Hand_Stmt_Seq := Make_Handled_Sequence_Of_Statements (Loc, Statements => Stmts); - end; + end Protected_Component_Ref; end if; -- Make an unprotected version of the subprogram for use within the same |