mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 12:50:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

exp_ch6.adb (Expand_Call): Remove ugly special-case code that resets Orig_Prev to Prev in the case where...

Browse Source 
2008-08-01  Gary Dismukes  <dismukes@adacore.com>

	* exp_ch6.adb (Expand_Call): Remove ugly special-case code that resets
	Orig_Prev to Prev in the case where the actual is N_Function_Call or
	N_Identifier. This was interfering with other cases that are rewritten
	as N_Identifier, such as allocators, resulting in passing of the wrong
	accessibility level, and based on testing this code is apparently no
	longer needed at all.

From-SVN: r138490
This commit is contained in:
Gary Dismukes 2008-08-01 11:03:35 +02:00 committed by Arnaud Charlet
parent 14037bbc9c
commit d54c4e31c2
1 changed files with 0 additions and 9 deletions

9
gcc/ada/exp_ch6.adb

@ -2034,15 +2034,6 @@ package body Exp_Ch6 is
Prev := Actual;
Prev_Orig := Original_Node (Prev);
-- The original actual may have been a call written in prefix
-- form, and rewritten before analysis.
if not Analyzed (Prev_Orig)
and then Nkind_In (Actual, N_Function_Call, N_Identifier)
then
Prev_Orig := Prev;
end if;
-- Ada 2005 (AI-251): Check if any formal is a class-wide interface
-- to expand it in a further round.