diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2008-08-01 11:03:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-01 11:03:35 +0200 |
| commit | d54c4e31c27f21d3555ed2f093f82736f82772b7 (patch) | |
| tree | 485f304386b6a695b179ea33d2dddfea09ef7e6c /gcc | |
| parent | 14037bbc9c7d2229754399f96ad6fa2cb6ee6161 (diff) | |
| download | gcc-d54c4e31c27f21d3555ed2f093f82736f82772b7.zip gcc-d54c4e31c27f21d3555ed2f093f82736f82772b7.tar.gz gcc-d54c4e31c27f21d3555ed2f093f82736f82772b7.tar.bz2 | |
exp_ch6.adb (Expand_Call): Remove ugly special-case code that resets Orig_Prev to Prev in the case where...
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index d1d43cf..d2281d1 100644 --- a/gcc/ada/exp_ch6.adb +++ b/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. |