aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/exp_ch9.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2009-04-10 12:35:01 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2009-04-10 12:35:01 +0200
commit2844b3304646e48e4e98fae44900a66128604542 (patch)
tree08f19541b2e232c7ac20c6ccc5c406ae9ee8e99f /gcc/ada/exp_ch9.adb
parentbe21e9d8c7fcd3d6ac53d8ef77f02f21e788874a (diff)
downloadgcc-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.adb27
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));