diff options
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index c9ec0da..1b648ff 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -3001,8 +3001,8 @@ package body Exp_Ch6 is if Prev_Orig /= Prev and then Nkind (Prev) = N_Attribute_Reference - and then - Get_Attribute_Id (Attribute_Name (Prev)) = Attribute_Access + and then Get_Attribute_Id (Attribute_Name (Prev)) = + Attribute_Access and then Is_Aliased_View (Prev_Orig) then Prev_Orig := Prev; |