exp_disp (Expand_Interface_Actuals): Adds missing support for expansion of calls...

2008-08-06  Javier Miranda  <miranda@adacore.com>

	* exp_disp (Expand_Interface_Actuals): Adds missing support for
	expansion of calls to subprograms using selected components.

From-SVN: r138778

diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb
index 9ce2e74c9b0c8b3060f93e231108f21c3d0b516d..591150101fc088d27983e6b9bc948f0080d72328 100644 (file)
--- 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));