From b474d6c3f1ea034da14d20a52f183e4a1a0e7b87 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Wed, 3 Aug 2011 07:37:15 +0000 Subject: exp_ch9.adb (Build_Renamed_Formal_Declaration): common procedure for protected entries and task entries... 2011-08-03 Ed Schonberg * 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 --- gcc/ada/exp_ch2.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gcc/ada/exp_ch2.adb') 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 => -- cgit v1.1