diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 12:35:01 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-10 12:35:01 +0200 |
commit | 2844b3304646e48e4e98fae44900a66128604542 (patch) | |
tree | 08f19541b2e232c7ac20c6ccc5c406ae9ee8e99f /gcc/ada/exp_ch9.adb | |
parent | be21e9d8c7fcd3d6ac53d8ef77f02f21e788874a (diff) | |
download | gcc-2844b3304646e48e4e98fae44900a66128604542.zip gcc-2844b3304646e48e4e98fae44900a66128604542.tar.gz gcc-2844b3304646e48e4e98fae44900a66128604542.tar.bz2 |
[multiple changes]
2009-04-10 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Check_Naming_Schemes): Initialize local variable Casing
to avoid gcc warning.
2009-04-10 Robert Dewar <dewar@adacore.com>
* g-comlin.adb: Add ??? comment
2009-04-10 Ed Schonberg <schonberg@adacore.com>
* sem_warn.adb (Check_Unused_Withs): Do not emit message about
unreferenced entities for a package with no visible declarations.
2009-04-10 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb: Minor reformatting
From-SVN: r145886
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
-rw-r--r-- | gcc/ada/exp_ch9.adb | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 8ff47dc..75603f0 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -738,22 +738,25 @@ package body Exp_Ch9 is -- At the end of the statement sequence, Complete_Rendezvous is called. -- A label skipping the Complete_Rendezvous, and all other accept -- processing, has already been added for the expansion of requeue - -- statements. + -- statements. The Sloc is copied from the last statement since it + -- is really part of this last statement. - Call := Build_Runtime_Call (Sloc (Last (Statements (Stats))), - RE_Complete_Rendezvous); + Call := + Build_Runtime_Call + (Sloc (Last (Statements (Stats))), RE_Complete_Rendezvous); Insert_Before (Last (Statements (Stats)), Call); Analyze (Call); -- If exception handlers are present, then append Complete_Rendezvous - -- calls to the handlers, and construct the required outer block. + -- calls to the handlers, and construct the required outer block. As + -- above, the Sloc is copied from the last statement in the sequence. if Present (Exception_Handlers (Stats)) then Hand := First (Exception_Handlers (Stats)); - while Present (Hand) loop - Call := Build_Runtime_Call (Sloc (Last (Statements (Hand))), - RE_Complete_Rendezvous); + Call := + Build_Runtime_Call + (Sloc (Last (Statements (Hand))), RE_Complete_Rendezvous); Append (Call, Statements (Hand)); Analyze (Call); Next (Hand); @@ -11996,11 +11999,11 @@ package body Exp_Ch9 is -- side effects. Append_To (Args, - New_Copy_Tree ( - Expression (First ( - Pragma_Argument_Associations ( - Find_Task_Or_Protected_Pragma - (Tdef, Name_Task_Name)))))); + New_Copy_Tree + (Expression (First + (Pragma_Argument_Associations + (Find_Task_Or_Protected_Pragma + (Tdef, Name_Task_Name)))))); else Append_To (Args, Make_Identifier (Loc, Name_uTask_Name)); |