Skip to content
GitLab
Commit b18ceaef authored by yoogx's avatar yoogx
Browse files

* Integrate patch for ticket #16

parent 9f824e6d
Hide whitespace changes
Inline Side-by-side
src/backends/ocarina-backends-pok_c-deployment.adb
View file @ b18ceaef
......@@ -2302,7 +2302,6 @@ package body Ocarina.Backends.POK_C.Deployment is
and then Get_Connection_Pattern (F) = Intra_Process
then
if AIN.Is_Data (F) and then not AIN.Is_Event (F) then
if POK_Flavor = ARINC653 then
Type_Used := RE (RE_Blackboard_Id_Type);
else
......@@ -2320,7 +2319,7 @@ package body Ocarina.Backends.POK_C.Deployment is
CTU.Make_Variable_Declaration
(Defining_Identifier =>
CTU.Make_Defining_Identifier (Map_Port_Var (F)),
Used_Type => RE (RE_Uint8_T));
Used_Type => Type_Used);
CTU.Append_Node_To_List
(N,
......@@ -2341,7 +2340,7 @@ package body Ocarina.Backends.POK_C.Deployment is
CTU.Make_Variable_Declaration
(Defining_Identifier =>
CTU.Make_Defining_Identifier (Map_Port_Var (F)),
Used_Type => RE (RE_Uint8_T));
Used_Type => Type_Used);
CTU.Append_Node_To_List
(N,
......
src/backends/ocarina-backends-pok_c-runtime.ads
View file @ b18ceaef
......@@ -642,9 +642,9 @@ package Ocarina.Backends.POK_C.Runtime is
RE_Sampling_Port_Id_Type => RH_Types,
RE_Semaphore_Id_Type => RH_Semaphore,
RE_Validity_Type => RH_Types,
RE_Buffer_Id_Type => RH_Types,
RE_Buffer_Id_Type => RH_Buffer,
RE_Event_Id_Type => RH_Event,
RE_Blackboard_Id_Type => RH_Types,
RE_Blackboard_Id_Type => RH_Blackboard,
RE_Message_Size_Type => RH_Types,
RE_Queuing_Port_Id_Type => RH_Queueing,
RE_Apex_Integer => RH_Types,
......
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