diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 16:57:28 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 16:57:28 +0200 |
| commit | 8e8889204245049467914f72b9ff664f31e56e24 (patch) | |
| tree | 3a9f0a9cf2cbc3f681d537a7013b511b331160b0 /gcc/ada/checks.adb | |
| parent | 63a4aa4375a94ca120752f77fc1376f03144722c (diff) | |
| download | gcc-8e8889204245049467914f72b9ff664f31e56e24.zip gcc-8e8889204245049467914f72b9ff664f31e56e24.tar.gz gcc-8e8889204245049467914f72b9ff664f31e56e24.tar.bz2 | |
[multiple changes]
2014-07-30 Hristian Kirtchev <kirtchev@adacore.com>
* checks.adb (Make_Bignum_Block): Use the new secondary stack
build routines to manage the mark.
* exp_ch7.adb (Create_Finalizer, Expand_Cleanup_Actions):
Use the new secodary stack build routines to manage the mark.
(Insert_Actions_In_Scope_Around): Add new formal parameter
Manage_SS along with comment on its usage. Code and comment
reformatting. Mark and release the secondary stack when the
context warrants it.
(Make_Transient_Block): Update the call
to Insert_Actions_In_Scope_Around to account for parameter Manage_SS.
(Wrap_Transient_Declaration): Remove local variable
Uses_SS. Ensure that the secondary stack is marked and released
when the related object declaration appears in a library level
package or package body. Code and comment reformatting.
* exp_util.ads, exp_util.adb (Build_SS_Mark_Call): New routine.
(Build_SS_Release_Call): New routine.
2014-07-30 Steve Baird <baird@adacore.com>
* exp_attr.adb: Revert previous change, not needed after all.
2014-07-30 Vincent Celier <celier@adacore.com>
* makeutl.adb (Queue.Insert_Project_Sources): Insert with
Closure => True for interfaces of Stand-Alone Libraries.
* makeutl.ads (Source_Info (Format => Gprbuild)): Add new
Boolean component Closure, defaulted to False.
2014-07-30 Yannick Moy <moy@adacore.com>
* sem_res.adb: Fix typo in error message.
From-SVN: r213291
Diffstat (limited to 'gcc/ada/checks.adb')
| -rw-r--r-- | gcc/ada/checks.adb | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index c117319..aea726c 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -7477,22 +7477,12 @@ package body Checks is begin return Make_Block_Statement (Loc, - Declarations => New_List ( - Make_Object_Declaration (Loc, - Defining_Identifier => M, - Object_Definition => - New_Occurrence_Of (RTE (RE_Mark_Id), Loc), - Expression => - Make_Function_Call (Loc, - Name => New_Occurrence_Of (RTE (RE_SS_Mark), Loc)))), + Declarations => + New_List (Build_SS_Mark_Call (Loc, M)), Handled_Statement_Sequence => Make_Handled_Sequence_Of_Statements (Loc, - Statements => New_List ( - Make_Procedure_Call_Statement (Loc, - Name => New_Occurrence_Of (RTE (RE_SS_Release), Loc), - Parameter_Associations => New_List ( - New_Occurrence_Of (M, Loc)))))); + Statements => New_List (Build_SS_Release_Call (Loc, M)))); end Make_Bignum_Block; ---------------------------------- |