Commit 396fdf68 authored by julien.delange's avatar julien.delange

* generate the sender function specification



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@558 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 9fa302ae
......@@ -765,6 +765,23 @@ package body Ocarina.Backends.PO_HI_C.Activity is
end if;
if Send_Function_Name /= No_Name then
Append_Node_To_List
(Make_Function_Specification
(Defining_Identifier =>
Make_Defining_Identifier (Send_Function_Name),
Parameters =>
Make_List_Id
(Make_Parameter_Specification
(Defining_Identifier =>
Make_Defining_Identifier (PN (P_Task)),
Parameter_Type => RE (RE_Task_Id)),
Make_Parameter_Specification
(Defining_Identifier =>
Make_Defining_Identifier (PN (P_Port)),
Parameter_Type => RE (RE_Port_T))),
Return_Type => New_Node (CTN.K_Int)),
CTN.Declarations (Current_File));
Send_Function_Node :=
Make_Defining_Identifier (Send_Function_Name);
else
......
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