diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2011-08-03 07:37:15 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 09:37:15 +0200 |
| commit | b474d6c3f1ea034da14d20a52f183e4a1a0e7b87 (patch) | |
| tree | b3817f7166af6b172c4935632d7cddc5f0de01ca /gcc/ada/exp_ch2.adb | |
| parent | 40f2f11f1f38c4346b843d94a0d8a68a2e7bcd87 (diff) | |
| download | gcc-b474d6c3f1ea034da14d20a52f183e4a1a0e7b87.zip gcc-b474d6c3f1ea034da14d20a52f183e4a1a0e7b87.tar.gz gcc-b474d6c3f1ea034da14d20a52f183e4a1a0e7b87.tar.bz2 | |
exp_ch9.adb (Build_Renamed_Formal_Declaration): common procedure for protected entries and task entries...
2011-08-03 Ed Schonberg <schonberg@adacore.com>
* exp_ch9.adb (Build_Renamed_Formal_Declaration): common procedure for
protected entries and task entries, to build the proper renaming
declaration for entry formals, used in debugging.
* exp_ch2.adb (Expand_Entry_Parameter): handle task and entry
parameters in the same way.
From-SVN: r177232
Diffstat (limited to 'gcc/ada/exp_ch2.adb')
| -rw-r--r-- | gcc/ada/exp_ch2.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index e0be404..68483ff 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -520,9 +520,6 @@ package body Exp_Ch2 is then Note_Possible_Modification (N, Sure => True); end if; - - Rewrite (N, New_Occurrence_Of (Renamed_Object (Entity (N)), Loc)); - return; end if; -- What we need is a reference to the corresponding component of the @@ -532,6 +529,9 @@ package body Exp_Ch2 is -- to turn this into a pointer to the parameter record and then we -- select the required parameter field. + -- The same processing applies to protected entries, where the Accept_ + -- Address is also the address of the Parameters record. + P_Comp_Ref := Make_Selected_Component (Loc, Prefix => |