From 2a26a7ec2fd1218218fe187e9bb758e889e18f04 Mon Sep 17 00:00:00 2001 From: Javier Miranda Date: Wed, 6 Aug 2008 10:52:28 +0200 Subject: [PATCH] exp_disp (Expand_Interface_Actuals): Adds missing support for expansion of calls to subprograms using selected... 2008-08-06 Javier Miranda * exp_disp (Expand_Interface_Actuals): Adds missing support for expansion of calls to subprograms using selected components. From-SVN: r138778 --- gcc/ada/exp_disp.adb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 9ce2e74..5911501 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -1054,7 +1054,12 @@ package body Exp_Disp is if Nkind (Name (Call_Node)) = N_Explicit_Dereference then Subp := Etype (Name (Call_Node)); - -- Normal case + -- Call using selected component + + elsif Nkind (Name (Call_Node)) = N_Selected_Component then + Subp := Entity (Selector_Name (Name (Call_Node))); + + -- Call using direct name else Subp := Entity (Name (Call_Node)); -- 2.7.4