OSDN Git Service

2008-08-01 Gary Dismukes <dismukes@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 1 Aug 2008 09:29:30 +0000 (09:29 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 1 Aug 2008 09:29:30 +0000 (09:29 +0000)
commit0fd20a7799683ff85ff80db26dd542a8a229b4ad
treed9b94313b22496ec4636c63609cbf8f8e31c5079
parentdfb60176a95e4b0124afdd5050f5d12570f9ef3c
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138493 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/exp_ch6.adb