Commit 973cdae9 authored by Julien's avatar Julien

update runtime for sampling ports

parent c3d74ca4
......@@ -649,7 +649,7 @@ package body Ocarina.Backends.POK_C.Main is
if Get_POK_Refresh_Time (F) /= Null_Time then
if Use_ARINC653_API then
N :=
Map_Time_To_Millisecond
Map_Time_To_Nanosecond
(Get_POK_Refresh_Time (F));
else
N := Map_Time (Get_POK_Refresh_Time (F));
......@@ -809,6 +809,10 @@ package body Ocarina.Backends.POK_C.Main is
end if;
end if;
if POK_Flavor = VXWORKS then
N := RE (RE_Infinite_Time_Value);
end if;
Append_Node_To_List (N, Call_Parameters);
Append_Node_To_List
......
......@@ -203,6 +203,7 @@ package body Ocarina.Backends.POK_C.Runtime is
RE_Header_Table (RE_Process_Attribute_Type) := RH_ApexType;
RE_Header_Table (RE_Fifo) := RH_ApexType;
RE_Header_Table (RE_Pok_Port_Kind_Sampling) := RH_ApexType;
RE_Header_Table (RE_Infinite_Time_Value) := RH_ApexType;
RE_Header_Table (RE_Pok_Port_Kind_Queueing) := RH_ApexType;
RE_Header_Table (RE_Source) := RH_ApexType;
RE_Header_Table (RE_Destination) := RH_ApexType;
......
......@@ -315,6 +315,7 @@ package Ocarina.Backends.POK_C.Runtime is
RE_Error_Status_Type, -- ARINC653 Error Status Type
RE_Process_Attribute_Type, -- ARINC653 Process Attribute Type
RE_Process_Id_Type, -- ARIND653 Process_Id_Type
RE_Infinite_Time_Value, -- ARIND653 INFINITE_TIME_VALUE
RE_Message_Size_Type, -- ARINC653 Message_size_type
RE_Validity_Type, -- ARINC653 Validity_type
RE_Buffer_Id_Type, -- ARINC653 Buffer_Id_Type
......@@ -663,6 +664,7 @@ package Ocarina.Backends.POK_C.Runtime is
RE_Apex_Char => RH_Types,
RE_Process_Attribute_Type => RH_Types,
RE_Process_Id_Type => RH_Types,
RE_Infinite_Time_Value => RH_Types,
RE_Sampling_Port_Id_Type => RH_Types,
RE_Semaphore_Id_Type => RH_Semaphore,
RE_Validity_Type => RH_Types,
......
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