From d3e65aad2ce5838c300670b4a0f6ad6fa41d917f Mon Sep 17 00:00:00 2001
From: Thomas Quinot <quinot@adacore.com>
Date: Mon, 4 Jul 2005 15:29:36 +0200
Subject: [PATCH] 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
---
gcc/ada/sem_ch4.adb | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index 0bc5af65bb5f..036a0213ab25 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;
--
GitLab