diff options
Diffstat (limited to 'gcc/ada/exp_disp.adb')
-rw-r--r-- | gcc/ada/exp_disp.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 2bbe2ae..b5a4642 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -481,11 +481,11 @@ package body Exp_Disp is and then Is_Interface (Typ) and then ((Nkind (Expr) = N_Selected_Component - and then Is_Tag (Entity (Selector_Name (Expr)))) + and then Is_Tag (Entity (Selector_Name (Expr)))) or else (Nkind (Expr) = N_Function_Call - and then RTE_Available (RE_Displace) - and then Entity (Name (Expr)) = RTE (RE_Displace)))); + and then RTE_Available (RE_Displace) + and then Entity (Name (Expr)) = RTE (RE_Displace)))); Anon_Type := Create_Itype (E_Anonymous_Access_Type, Expr); Set_Directly_Designated_Type (Anon_Type, Typ); @@ -8023,7 +8023,7 @@ package body Exp_Disp is Write_Int (Int (Alias (Prim))); -- If the DTC_Entity attribute is already set we can also output - -- the name of the interface covered by this primitive (if any) + -- the name of the interface covered by this primitive (if any). if Present (DTC_Entity (Alias (Prim))) and then Is_Interface (Scope (DTC_Entity (Alias (Prim)))) |