diff options
Diffstat (limited to 'gcc/ada/exp_ch2.adb')
| -rw-r--r-- | gcc/ada/exp_ch2.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index 7192cb9..966670d 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -519,8 +519,9 @@ package body Exp_Ch2 is P_Comp_Ref := Make_Selected_Component (Loc, Prefix => - Unchecked_Convert_To (Parm_Type, - New_Reference_To (Addr_Ent, Loc)), + Make_Explicit_Dereference (Loc, + Unchecked_Convert_To (Parm_Type, + New_Reference_To (Addr_Ent, Loc))), Selector_Name => New_Reference_To (Entry_Component (Ent_Formal), Loc)); |