Commit 29c57189 authored by julien.delange's avatar julien.delange
Browse files

* ocarina/src/backends/ocarina-backends-po_hi_c-main.adb

   - Properly declare the initialize function when the property
     points to a string



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2354 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 09c158b3
......@@ -352,6 +352,16 @@ package body Ocarina.Backends.PO_HI_C.Main is
Get_Thread_Initialize_Entrypoint
(Corresponding_Instance (C)) /= No_Name
then
Append_Node_To_List
(Make_Extern_Entity_Declaration
(Make_Function_Specification
(Make_Defining_Identifier
(Get_Thread_Initialize_Entrypoint
(Corresponding_Instance (C))),
Parameters => No_List,
Return_Type => New_Node (CTN.K_Void))),
CTN.Declarations (Current_File));
Append_Node_To_List
(Make_Call_Profile
(Make_Defining_Identifier
......
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