diff options
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index f60980ac25f..c712eacc108 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -3282,10 +3282,11 @@ package body Exp_Ch9 is Defining_Identifier => D_T2, Type_Definition => Def1); + Analyze (Decl1); Insert_After (N, Decl1); -- Create Equivalent_Type, a record with two components for an - -- an access to object an an access to subprogram. + -- access to object and an access to subprogram. Comps := New_List ( Make_Component_Declaration (Loc, @@ -3314,6 +3315,7 @@ package body Exp_Ch9 is Make_Component_List (Loc, Component_Items => Comps))); + Analyze (Decl2); Insert_After (Decl1, Decl2); Set_Equivalent_Type (T, E_T); end Expand_Access_Protected_Subprogram_Type; |