exp_ch6.adb (Expand_Call): Adjustment to previous fix for passing correct accessibili...
authorGary Dismukes <dismukes@adacore.com>
Fri, 1 Aug 2008 09:29:30 +0000 (11:29 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 1 Aug 2008 09:29:30 +0000 (11:29 +0200)
commit8ca3bf9177d3503246cb4a693be7553f5bd56bca
treed9b94313b22496ec4636c63609cbf8f8e31c5079
parentf252a7d6bd8c273967dbe12e03cbe73d8d8299b0
exp_ch6.adb (Expand_Call): Adjustment to previous fix for passing correct accessibility levels.

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

* exp_ch6.adb (Expand_Call): Adjustment to previous fix for passing
correct accessibility levels. In the "when others" case, retrieve the
access level of the Etype of Prev rather than Prev_Orig, because the
original exression has not always been analyzed.

From-SVN: r138493
gcc/ada/exp_ch6.adb