diff options
Diffstat (limited to 'gcc/ada/exp_cg.adb')
| -rw-r--r-- | gcc/ada/exp_cg.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/exp_cg.adb b/gcc/ada/exp_cg.adb index 4f96664..e5f618f 100644 --- a/gcc/ada/exp_cg.adb +++ b/gcc/ada/exp_cg.adb @@ -478,7 +478,8 @@ package body Exp_CG is and then Is_Ancestor (Find_Dispatching_Type (Ultimate_Alias (Prim)), - Root_Type (Ctrl_Typ)) + Root_Type (Ctrl_Typ), + Use_Full_View => True) then -- This is a special case in which we generate in the ci file the -- slot number of the renaming primitive (i.e. Base2) but instead of @@ -616,7 +617,8 @@ package body Exp_CG is if Present (Overridden_Operation (Prim)) and then Is_Ancestor - (Find_Dispatching_Type (Overridden_Operation (Prim)), Typ) + (Find_Dispatching_Type (Overridden_Operation (Prim)), Typ, + Use_Full_View => True) then Write_Char (','); Write_Int @@ -642,7 +644,8 @@ package body Exp_CG is if Present (Int_Alias) and then - not Is_Ancestor (Find_Dispatching_Type (Int_Alias), Typ) + not Is_Ancestor (Find_Dispatching_Type (Int_Alias), Typ, + Use_Full_View => True) and then (Alias (Prim_Op)) = Prim then Write_Char (','); |