diff options
| author | Bob Duff <duff@adacore.com> | 2008-08-22 12:59:45 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-22 14:59:45 +0200 |
| commit | 048e5cef65a7c108ba7a2b16ca12ba70b9759527 (patch) | |
| tree | c33d7da6bd7121ca500be077fd85be7cd538b1bb /gcc/ada/exp_aggr.adb | |
| parent | beeab17c6ed0733203002932c08d1d3f3fe5d053 (diff) | |
| download | gcc-048e5cef65a7c108ba7a2b16ca12ba70b9759527.zip gcc-048e5cef65a7c108ba7a2b16ca12ba70b9759527.tar.gz gcc-048e5cef65a7c108ba7a2b16ca12ba70b9759527.tar.bz2 | |
exp_ch5.adb, [...]: Rename...
2008-08-22 Bob Duff <duff@adacore.com>
* exp_ch5.adb, exp_ch7.adb, exp_ch7.ads, exp_util.adb, freeze.adb,
exp_ch4.adb, exp_ch6.ads, exp_ch6.adb, sem_ch6.adb, exp_aggr.adb,
exp_intr.adb, exp_ch3.adb: Rename:
Exp_Ch7.Controlled_Type => Needs_Finalization
Exp_Ch7.CW_Or_Controlled_Type => CW_Or_Has_Controlled_Part
Exp_Ch5.Expand_N_Extended_Return_Statement.Controlled_Type =>
Has_Controlled_Parts
(Has_Some_Controlled_Component): Fix bug in array case.
From-SVN: r139452
Diffstat (limited to 'gcc/ada/exp_aggr.adb')
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index e8b1e73..c81e401 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -973,7 +973,7 @@ package body Exp_Aggr is if Present (Flist) then F := New_Copy_Tree (Flist); - elsif Present (Etype (N)) and then Controlled_Type (Etype (N)) then + elsif Present (Etype (N)) and then Needs_Finalization (Etype (N)) then if Is_Entity_Name (Into) and then Present (Scope (Entity (Into))) then @@ -1137,7 +1137,7 @@ package body Exp_Aggr is Expression => Make_Null (Loc))); end if; - if Controlled_Type (Ctype) then + if Needs_Finalization (Ctype) then Append_List_To (L, Make_Init_Call ( Ref => New_Copy_Tree (Indexed_Comp), @@ -1159,7 +1159,7 @@ package body Exp_Aggr is Name => Indexed_Comp, Expression => New_Copy_Tree (Expr)); - if Present (Comp_Type) and then Controlled_Type (Comp_Type) then + if Present (Comp_Type) and then Needs_Finalization (Comp_Type) then Set_No_Ctrl_Actions (A); -- If this is an aggregate for an array of arrays, each @@ -1223,7 +1223,7 @@ package body Exp_Aggr is -- inner finalization actions). if Present (Comp_Type) - and then Controlled_Type (Comp_Type) + and then Needs_Finalization (Comp_Type) and then not Is_Limited_Type (Comp_Type) and then (not Is_Array_Type (Comp_Type) @@ -2167,7 +2167,7 @@ package body Exp_Aggr is -- proper scope is the scope of the target rather than the -- potentially transient current scope. - if Controlled_Type (Typ) then + if Needs_Finalization (Typ) then -- The current aggregate belongs to an allocator which creates -- an object through an anonymous access type or acts as the root @@ -2645,7 +2645,7 @@ package body Exp_Aggr is -- Call Adjust manually - if Controlled_Type (Etype (A)) + if Needs_Finalization (Etype (A)) and then not Is_Limited_Type (Etype (A)) then Append_List_To (Assign, @@ -2854,7 +2854,7 @@ package body Exp_Aggr is -- The controller is the one of the parent type defining the -- component (in case of inherited components). - if Controlled_Type (Comp_Type) then + if Needs_Finalization (Comp_Type) then Internal_Final_List := Make_Selected_Component (Loc, Prefix => Convert_To ( @@ -3027,7 +3027,7 @@ package body Exp_Aggr is -- Attach_To_Final_List (tmp.comp, -- comp_typ (tmp)._record_controller.f) - if Controlled_Type (Comp_Type) + if Needs_Finalization (Comp_Type) and then not Is_Limited_Type (Comp_Type) then Append_List_To (L, @@ -4961,7 +4961,7 @@ package body Exp_Aggr is or else Parent_Kind = N_Extension_Aggregate or else Parent_Kind = N_Component_Association or else (Parent_Kind = N_Object_Declaration - and then Controlled_Type (Typ)) + and then Needs_Finalization (Typ)) or else (Parent_Kind = N_Assignment_Statement and then Inside_Init_Proc) then |