Set_Analyzed (Call_Node, False);
Rewrite (Node_To_Replace, Call_Node);
Analyze (Node_To_Replace);
-
end Complete_Object_Operation;
--------------------------------
-- Allocate the node only once
if not Present (Call_Node_Case) then
+ Analyze_Expression (Obj);
+ Set_Analyzed (Obj);
+
Transform_Object_Operation (
Call_Node => Call_Node_Case,
First_Actual => Obj,
-- Allocate the node only once
if not Present (Call_Node_Case) then
+ Analyze_Expression (Obj);
+ Set_Analyzed (Obj);
+
Transform_Object_Operation (
Call_Node => Call_Node_Case,
First_Actual => Obj,
if Is_Subprg_Call and then N = Name (Parent (N)) then
Actual := First (Parameter_Associations (Parent (N)));
while Present (Actual) loop
- Analyze (Actual);
- Check_Parameterless_Call (Actual);
+ Analyze_Expression (Actual);
Next (Actual);
end loop;
end if;
First_Actual := Obj;
end if;
+ Analyze_Expression (First_Actual);
+ Set_Analyzed (First_Actual);
+
-- Build a subprogram call node
Transform_Object_Operation (