Commit 7600dca4 authored by Julien's avatar Julien

Fix subprogram calls for shared data

Fixes #49
parent 5fbcffdf
......@@ -1951,7 +1951,6 @@ package body Ocarina.Backends.C_Common.Mapping is
-- mapped in the case of pure call sequence subprogram because
-- they are used only to close the access chain.
if Get_Subprogram_Kind (S) /= Subprogram_Pure_Call_Sequence then
if not AINU.Is_Empty (Features (S)) then
F := AIN.First_Node (Features (S));
......@@ -2058,7 +2057,6 @@ package body Ocarina.Backends.C_Common.Mapping is
F := AIN.Next_Node (F);
end loop;
end if;
end if;
N :=
CTU.Make_Function_Specification
......
......@@ -1627,7 +1627,6 @@ package body Ocarina.Backends.C_Tree.Nutils is
N : Node_Id;
F : Node_Id;
M : Node_Id;
Owner : Node_Id;
Declaration : Node_Id;
Data_Accessed : Node_Id;
Hybrid : constant Boolean :=
......@@ -1933,15 +1932,6 @@ package body Ocarina.Backends.C_Tree.Nutils is
N := Message_Comment ("Invoking method");
CTU.Append_Node_To_List (N, Statements);
Owner := Get_Actual_Owner (Spg_Call);
N :=
Make_Variable_Address
(CTN.Defining_Identifier
(CTN.Object_Node (Backend_Node (Identifier (Owner)))));
Append_Node_To_List (N, Call_Profile);
-- The name of the called subprogram is deduced from the
-- corresponding subprogram spec instance (last element
-- of the 'Path' list) and from the actual data component
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment