Commit c43a49d9 authored by julien.delange's avatar julien.delange
Browse files

add arguments to the default sockets initialization function

old examples work



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@593 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 9c615abf
...@@ -273,7 +273,8 @@ package body Ocarina.Backends.PO_HI_C.Main is ...@@ -273,7 +273,8 @@ package body Ocarina.Backends.PO_HI_C.Main is
N := Make_Call_Profile N := Make_Call_Profile
(Make_Defining_Identifier (Make_Defining_Identifier
(Get_String_Name ("__po_hi_driver_sockets_init")), (Get_String_Name ("__po_hi_driver_sockets_init")),
No_List); Make_List_Id
(Make_Literal (New_Int_Value (0, 0, 10))));
Append_Node_To_List (N, CTN.Statements (Main_Function)); Append_Node_To_List (N, CTN.Statements (Main_Function));
end if; end if;
......
Supports Markdown
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