diff options
author | Javier Miranda <miranda@adacore.com> | 2008-08-22 16:55:14 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-22 16:55:14 +0200 |
commit | b7cc33a4ce1fc58044c6dcbdfa9394de122599d0 (patch) | |
tree | f5353f5ca887636821a8306320cc6d4a32be9ff6 /gcc/ada | |
parent | a5ad324803adda8822e0fa7525d80b72f89d47b6 (diff) | |
download | gcc-b7cc33a4ce1fc58044c6dcbdfa9394de122599d0.zip gcc-b7cc33a4ce1fc58044c6dcbdfa9394de122599d0.tar.gz gcc-b7cc33a4ce1fc58044c6dcbdfa9394de122599d0.tar.bz2 |
exp_ch3.adb: Revert previous patch.
2008-08-22 Javier Miranda <miranda@adacore.com>
* exp_ch3.adb: Revert previous patch.
From-SVN: r139478
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/exp_ch3.adb | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 7787a7b..5a49cd0 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -2515,45 +2515,6 @@ package body Exp_Ch3 is Statement_List := New_List; - -- Loop through visible declarations of task types and protected - -- types moving any expanded code from the spec to the body of the - -- init procedure - - if Is_Task_Record_Type (Rec_Type) - or else Is_Protected_Record_Type (Rec_Type) - then - declare - Decl : constant Node_Id := - Parent (Corresponding_Concurrent_Type (Rec_Type)); - Def : Node_Id; - N1 : Node_Id; - N2 : Node_Id; - - begin - if Is_Task_Record_Type (Rec_Type) then - Def := Task_Definition (Decl); - else - Def := Protected_Definition (Decl); - end if; - - N1 := First (Visible_Declarations (Def)); - while Present (N1) loop - N2 := N1; - N1 := Next (N1); - - if Nkind (N2) in N_Statement_Other_Than_Procedure_Call - or else Nkind (N2) in N_Raise_xxx_Error - or else Nkind (N2) = N_Procedure_Call_Statement - then - Append_To (Statement_List, - New_Copy_Tree (N2, New_Scope => Proc_Id)); - Rewrite (N2, Make_Null_Statement (Sloc (N2))); - Analyze (N2); - end if; - end loop; - end; - end if; - -- Loop through components, skipping pragmas, in 2 steps. The first -- step deals with regular components. The second step deals with -- components have per object constraints, and no explicit initia- |