diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-18 12:14:23 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-18 12:14:23 +0200 |
| commit | 468ee96a95a470c06e0f646f0a7c83b189b7fbe6 (patch) | |
| tree | d7fba811fa09b6de0a53d1fc0e6c4cf9f7fe6ca6 /gcc/ada/sem_res.adb | |
| parent | b7f17b2062c6e07c4236e16d124e9f1dcd34447f (diff) | |
| download | gcc-468ee96a95a470c06e0f646f0a7c83b189b7fbe6.zip gcc-468ee96a95a470c06e0f646f0a7c83b189b7fbe6.tar.gz gcc-468ee96a95a470c06e0f646f0a7c83b189b7fbe6.tar.bz2 | |
[multiple changes]
2010-10-18 Robert Dewar <dewar@adacore.com>
* prj-nmsc.adb, prj.adb, sem_res.adb: Minor reformatting.
2010-10-18 Ed Schonberg <schonberg@adacore.com>
* sem_util.adb (Insert_Explicit_Dereference): If operand is a selected
component, we generate a reference to the ultimate prefix when it is an
entity name. We must place the reference on the identifier for that
prefix, and not on the operand itself, to prevent spurious extra
references in the ali file.
2010-10-18 Vincent Celier <celier@adacore.com>
* projects.texi: Add documentation for attribute Ignore_Source_Sub_Dirs
From-SVN: r165623
Diffstat (limited to 'gcc/ada/sem_res.adb')
| -rw-r--r-- | gcc/ada/sem_res.adb | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 3ca9798..efd44e8 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -6331,19 +6331,20 @@ package body Sem_Res is and then Present (PPC_Wrapper (Nam)) and then Current_Scope /= PPC_Wrapper (Nam) then - - -- Rewrite as call to the precondition wrapper, adding the - -- task object to the list of actuals. + -- Rewrite as call to the precondition wrapper, adding the task + -- object to the list of actuals. declare - New_Call : Node_Id; + New_Call : Node_Id; New_Actuals : List_Id; begin New_Actuals := New_List (Obj); Append_List (Parameter_Associations (N), New_Actuals); - New_Call := Make_Procedure_Call_Statement (Loc, - Name => New_Occurrence_Of (PPC_Wrapper (Nam), Loc), - Parameter_Associations => New_Actuals); + New_Call := + Make_Procedure_Call_Statement (Loc, + Name => + New_Occurrence_Of (PPC_Wrapper (Nam), Loc), + Parameter_Associations => New_Actuals); Rewrite (N, New_Call); Analyze_And_Resolve (N); return; |