Commit e000c26d authored by julien.delange's avatar julien.delange

Add support for Initialize_Entrypoint property in threads



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1107 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 57c7af69
......@@ -423,8 +423,25 @@ package body Ocarina.Backends.PO_HI_C.Activity is
procedure Make_Fetch_In_Ports;
procedure Make_Thread_Compute_Entrypoint;
procedure Make_Ports_Compute_Entrypoint;
procedure Make_Init;
function Make_Get_Valid_Value (F : Node_Id) return Node_Id;
---------------
-- Make_Init --
---------------
procedure Make_Init is
Entrypoint : constant Node_Id
:= Get_Thread_Initialize_Entrypoint (E);
begin
if Entrypoint /= No_Node then
Append_Node_To_List
(Make_Call_Profile
(Map_C_Subprogram_Identifier (Entrypoint)),
Statements);
end if;
end Make_Init;
--------------------------
-- Make_Get_Valid_Value --
--------------------------
......@@ -1159,6 +1176,8 @@ package body Ocarina.Backends.PO_HI_C.Activity is
null;
end case;
Make_Init;
Check_Thread_Consistency (E);
if Has_Ports (E) then
......
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