diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-09-10 14:52:46 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-09-10 14:52:46 +0000 |
commit | e5e512c52ff19986ad4ace0092b97d1a05b87566 (patch) | |
tree | 895f82359759face41b9b601b7972775c577719e /gcc/ada/exp_ch9.adb | |
parent | da94c58fb5137a243c00798d1bec1a2842679440 (diff) | |
download | ppe42-gcc-e5e512c52ff19986ad4ace0092b97d1a05b87566.tar.gz ppe42-gcc-e5e512c52ff19986ad4ace0092b97d1a05b87566.zip |
2013-09-10 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sinfo.ads, exp_ch9.adb, sem_prag.adb, sem_ch12.adb,
exp_ch4.adb, sprint.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@202455 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
-rw-r--r-- | gcc/ada/exp_ch9.adb | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 92ffa821710..a296a8e8578 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -12004,13 +12004,13 @@ package body Exp_Ch9 is D_Alt : constant Node_Id := Delay_Alternative (N); D_Conv : Node_Id; D_Disc : Node_Id; - D_Stat : Node_Id := Delay_Statement (D_Alt); + D_Stat : Node_Id := Delay_Statement (D_Alt); D_Stats : List_Id; D_Type : Entity_Id; Decls : List_Id; Dummy : Node_Id; E_Alt : constant Node_Id := Entry_Call_Alternative (N); - E_Call : Node_Id := Entry_Call_Statement (E_Alt); + E_Call : Node_Id := Entry_Call_Statement (E_Alt); E_Stats : List_Id; Ename : Node_Id; Formals : List_Id; @@ -12052,9 +12052,9 @@ package body Exp_Ch9 is begin Decl := Make_Subprogram_Body (Loc, - Specification => + Specification => Make_Procedure_Specification (Loc, Defining_Unit_Name => Proc), - Declarations => New_List, + Declarations => New_List, Handled_Statement_Sequence => Make_Handled_Sequence_Of_Statements (Loc, E_Stats)); @@ -12087,9 +12087,11 @@ package body Exp_Ch9 is E_Stats := New_List (Make_Procedure_Call_Statement (Loc, - Name => New_Occurrence_Of (Proc, Loc))); + Name => New_Occurrence_Of (Proc, Loc))); end Rewrite_Triggering_Statements; + -- Start of processing for Expand_N_Timed_Entry_Call + begin -- Under the Ravenscar profile, timed entry calls are excluded. An error -- was already reported on spec, so do not attempt to expand the call. @@ -12340,6 +12342,10 @@ package body Exp_Ch9 is -- <timed-statements> -- end if; + -- Note: we used to do Copy_Separate_List here, but this was changed + -- to New_Copy_List_Tree with no explanation or RH note??? We should + -- explain the need for the change ??? + N_Stats := New_Copy_List_Tree (E_Stats); Prepend_To (N_Stats, @@ -12380,6 +12386,10 @@ package body Exp_Ch9 is -- <dispatching-call>; -- <triggering-statements> + -- Note: the following was Copy_Separate_List but it was changed to + -- New_Copy_List_Tree without comments or RH documentation ??? We + -- should explain the need for the change ??? + Lim_Typ_Stmts := New_Copy_List_Tree (E_Stats); Prepend_To (Lim_Typ_Stmts, New_Copy_Tree (E_Call)); |