From: Thomas Quinot <quinot@adacore.com>
Date: Mon, 4 Jul 2005 13:29:36 +0000 (+0200)
Subject: sem_ch4.adb (Transform_Object_Operation): For an actual that is an overloaded functio... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d3e65aad2ce5838c300670b4a0f6ad6fa41d917f;p=gcc.git

sem_ch4.adb (Transform_Object_Operation): For an actual that is an overloaded function call...

2005-07-04  Thomas Quinot  <quinot@adacore.com>

	* sem_ch4.adb (Transform_Object_Operation): For an actual that is an
	overloaded function call, carry interpretations from the original tree
	to the copy.

From-SVN: r101587
---

diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index 0bc5af65bb5..036a0213ab2 100644
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -4913,7 +4913,19 @@ package body Sem_Ch4 is
             begin
                Actual := First (Parameter_Associations (Parent_Node));
                while Present (Actual) loop
-                  Append (New_Copy_Tree (Actual), Actuals);
+                  declare
+                     New_Actual : constant Node_Id := New_Copy_Tree (Actual);
+
+                  begin
+                     Append (New_Actual, Actuals);
+
+                     if Nkind (Actual) = N_Function_Call
+                       and then Is_Overloaded (Name (Actual))
+                     then
+                        Save_Interps (Name (Actual), Name (New_Actual));
+                     end if;
+                  end;
+
                   Next (Actual);
                end loop;
             end;