Commit 61ec3cee authored by Julien's avatar Julien
Browse files

Add the -k deos option to the pok generation tool

parent fca3678e
...@@ -559,7 +559,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -559,7 +559,7 @@ package body Ocarina.Backends.POK_C.Activity is
-- of the device can transport data that was -- of the device can transport data that was
-- manipulated by a virtual bus. -- manipulated by a virtual bus.
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Called_Function := RE (RE_Read_Sampling_Message); Called_Function := RE (RE_Read_Sampling_Message);
Type_Used := RE (RE_Sampling_Port_Id_Type); Type_Used := RE (RE_Sampling_Port_Id_Type);
else else
...@@ -581,7 +581,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -581,7 +581,7 @@ package body Ocarina.Backends.POK_C.Activity is
Used_Type => Type_Used)), Used_Type => Type_Used)),
CTN.Declarations (Current_File)); CTN.Declarations (Current_File));
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Validity_Type); Type_Used := RE (RE_Validity_Type);
else else
Type_Used := RE (RE_Bool_T); Type_Used := RE (RE_Bool_T);
...@@ -595,7 +595,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -595,7 +595,7 @@ package body Ocarina.Backends.POK_C.Activity is
Used_Type => Type_Used), Used_Type => Type_Used),
Statements); Statements);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Message_Size_Type); Type_Used := RE (RE_Message_Size_Type);
else else
Type_Used := RE (RE_Pok_Port_Size_T); Type_Used := RE (RE_Pok_Port_Size_T);
...@@ -673,7 +673,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -673,7 +673,7 @@ package body Ocarina.Backends.POK_C.Activity is
(Map_Port_Var_Valid (F, Current_Device))), (Map_Port_Var_Valid (F, Current_Device))),
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
end if; end if;
...@@ -685,7 +685,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -685,7 +685,7 @@ package body Ocarina.Backends.POK_C.Activity is
Call_Parameters); Call_Parameters);
if Get_Timeout_Value (F) /= Null_Time then if Get_Timeout_Value (F) /= Null_Time then
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
N := N :=
Map_Time_To_Millisecond Map_Time_To_Millisecond
(Get_Timeout_Value (F)); (Get_Timeout_Value (F));
...@@ -709,7 +709,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -709,7 +709,7 @@ package body Ocarina.Backends.POK_C.Activity is
(Map_Port_Var_Length (F, Current_Device))), (Map_Port_Var_Length (F, Current_Device))),
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
Called_Function := RF (RE_Read_Blackboard); Called_Function := RF (RE_Read_Blackboard);
else else
...@@ -721,7 +721,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -721,7 +721,7 @@ package body Ocarina.Backends.POK_C.Activity is
(Called_Function, (Called_Function,
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Message_Size_Type); Type_Used := RE (RE_Message_Size_Type);
else else
Type_Used := RE (RE_Pok_Port_Size_T); Type_Used := RE (RE_Pok_Port_Size_T);
...@@ -735,7 +735,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -735,7 +735,7 @@ package body Ocarina.Backends.POK_C.Activity is
Used_Type => Type_Used), Used_Type => Type_Used),
Statements); Statements);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Blackboard_Id_Type); Type_Used := RE (RE_Blackboard_Id_Type);
else else
Type_Used := RE (RE_Uint8_T); Type_Used := RE (RE_Uint8_T);
...@@ -771,7 +771,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -771,7 +771,7 @@ package body Ocarina.Backends.POK_C.Activity is
Current_Device); Current_Device);
end if; end if;
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Append_Node_To_List Append_Node_To_List
(Make_Expression (Make_Expression
...@@ -789,7 +789,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -789,7 +789,7 @@ package body Ocarina.Backends.POK_C.Activity is
Call_Parameters); Call_Parameters);
if Get_Timeout_Value (F) /= Null_Time then if Get_Timeout_Value (F) /= Null_Time then
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
N := N :=
Map_Time_To_Millisecond Map_Time_To_Millisecond
(Get_Timeout_Value (F)); (Get_Timeout_Value (F));
...@@ -838,7 +838,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -838,7 +838,7 @@ package body Ocarina.Backends.POK_C.Activity is
Call_Parameters); Call_Parameters);
if Get_Timeout_Value (F) /= Null_Time then if Get_Timeout_Value (F) /= Null_Time then
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
N := N :=
Map_Time_To_Millisecond Map_Time_To_Millisecond
(Get_Timeout_Value (F)); (Get_Timeout_Value (F));
...@@ -897,7 +897,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -897,7 +897,7 @@ package body Ocarina.Backends.POK_C.Activity is
Used_Type => Type_Used)), Used_Type => Type_Used)),
CTN.Declarations (Current_File)); CTN.Declarations (Current_File));
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Message_Size_Type); Type_Used := RE (RE_Message_Size_Type);
else else
Type_Used := RE (RE_Pok_Port_Size_T); Type_Used := RE (RE_Pok_Port_Size_T);
...@@ -916,7 +916,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -916,7 +916,7 @@ package body Ocarina.Backends.POK_C.Activity is
Call_Parameters); Call_Parameters);
if Get_Timeout_Value (F) /= Null_Time then if Get_Timeout_Value (F) /= Null_Time then
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
N := N :=
Map_Time_To_Millisecond Map_Time_To_Millisecond
(Get_Timeout_Value (F)); (Get_Timeout_Value (F));
...@@ -948,7 +948,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -948,7 +948,7 @@ package body Ocarina.Backends.POK_C.Activity is
(Map_Port_Var_Length (F))), (Map_Port_Var_Length (F))),
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
Called_Function := RE (RE_Receive_Buffer); Called_Function := RE (RE_Receive_Buffer);
...@@ -961,7 +961,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -961,7 +961,7 @@ package body Ocarina.Backends.POK_C.Activity is
(Called_Function, (Called_Function,
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Message_Size_Type); Type_Used := RE (RE_Message_Size_Type);
else else
Type_Used := RE (RE_Pok_Port_Size_T); Type_Used := RE (RE_Pok_Port_Size_T);
...@@ -975,7 +975,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -975,7 +975,7 @@ package body Ocarina.Backends.POK_C.Activity is
Used_Type => Type_Used), Used_Type => Type_Used),
Statements); Statements);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Buffer_Id_Type); Type_Used := RE (RE_Buffer_Id_Type);
else else
Type_Used := RE (RE_Uint8_T); Type_Used := RE (RE_Uint8_T);
...@@ -1023,7 +1023,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1023,7 +1023,7 @@ package body Ocarina.Backends.POK_C.Activity is
(CTU.Make_Literal (CV.New_Int_Value (0, 1, 10)), (CTU.Make_Literal (CV.New_Int_Value (0, 1, 10)),
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Called_Function := RE (RE_Wait_Event); Called_Function := RE (RE_Wait_Event);
Append_Node_To_List Append_Node_To_List
(Make_Variable_Address (Make_Variable_Address
...@@ -1063,7 +1063,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1063,7 +1063,7 @@ package body Ocarina.Backends.POK_C.Activity is
No_List))); No_List)));
Append_Node_To_List (N, WStatements); Append_Node_To_List (N, WStatements);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Event_Id_Type); Type_Used := RE (RE_Event_Id_Type);
else else
Type_Used := RE (RE_Pok_Event_Id_T); Type_Used := RE (RE_Pok_Event_Id_T);
...@@ -1199,7 +1199,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1199,7 +1199,7 @@ package body Ocarina.Backends.POK_C.Activity is
Call_Parameters := New_List (CTN.K_Parameter_List); Call_Parameters := New_List (CTN.K_Parameter_List);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Called_Function := RF (RE_Periodic_Wait); Called_Function := RF (RE_Periodic_Wait);
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
else else
...@@ -1390,7 +1390,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1390,7 +1390,7 @@ package body Ocarina.Backends.POK_C.Activity is
Append_Node_To_List (N, Call_Parameters); Append_Node_To_List (N, Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
Called_Function := RE (RE_Write_Sampling_Message); Called_Function := RE (RE_Write_Sampling_Message);
Type_Used := RE (RE_Sampling_Port_Id_Type); Type_Used := RE (RE_Sampling_Port_Id_Type);
...@@ -1439,7 +1439,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1439,7 +1439,7 @@ package body Ocarina.Backends.POK_C.Activity is
N := CTU.Get_Data_Size (Corresponding_Instance (F)); N := CTU.Get_Data_Size (Corresponding_Instance (F));
Append_Node_To_List (N, Call_Parameters); Append_Node_To_List (N, Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
Called_Function := RF (RE_Display_Blackboard); Called_Function := RF (RE_Display_Blackboard);
else else
...@@ -1451,7 +1451,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1451,7 +1451,7 @@ package body Ocarina.Backends.POK_C.Activity is
(Called_Function, (Called_Function,
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Blackboard_Id_Type); Type_Used := RE (RE_Blackboard_Id_Type);
else else
Type_Used := RE (RE_Uint8_T); Type_Used := RE (RE_Uint8_T);
...@@ -1512,7 +1512,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1512,7 +1512,7 @@ package body Ocarina.Backends.POK_C.Activity is
Append_Node_To_List (N, Call_Parameters); Append_Node_To_List (N, Call_Parameters);
if Get_Timeout_Value (F) /= Null_Time then if Get_Timeout_Value (F) /= Null_Time then
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
N := N :=
Map_Time_To_Millisecond Map_Time_To_Millisecond
(Get_Timeout_Value (F)); (Get_Timeout_Value (F));
...@@ -1525,7 +1525,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1525,7 +1525,7 @@ package body Ocarina.Backends.POK_C.Activity is
Append_Node_To_List (N, Call_Parameters); Append_Node_To_List (N, Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
Called_Function := RE (RE_Send_Queuing_Message); Called_Function := RE (RE_Send_Queuing_Message);
...@@ -1583,7 +1583,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1583,7 +1583,7 @@ package body Ocarina.Backends.POK_C.Activity is
Append_Node_To_List (N, Call_Parameters); Append_Node_To_List (N, Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
Called_Function := RE (RE_Send_Buffer); Called_Function := RE (RE_Send_Buffer);
...@@ -1617,7 +1617,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1617,7 +1617,7 @@ package body Ocarina.Backends.POK_C.Activity is
and then Get_Connection_Pattern (F) = Intra_Process and then Get_Connection_Pattern (F) = Intra_Process
then then
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Event_Id_Type); Type_Used := RE (RE_Event_Id_Type);
Called_Function := RE (RE_Set_Event); Called_Function := RE (RE_Set_Event);
...@@ -1661,7 +1661,7 @@ package body Ocarina.Backends.POK_C.Activity is ...@@ -1661,7 +1661,7 @@ package body Ocarina.Backends.POK_C.Activity is
end loop; end loop;
end Make_Send_Out; end Make_Send_Out;
begin begin
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Type_Used := RE (RE_Return_Code_Type); Type_Used := RE (RE_Return_Code_Type);
else else
Type_Used := RE (RE_Pok_Ret_T); Type_Used := RE (RE_Pok_Ret_T);
......
...@@ -138,7 +138,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -138,7 +138,7 @@ package body Ocarina.Backends.POK_C.Main is
Member_Value : Node_Id; Member_Value : Node_Id;
begin begin
-- Initializes thread attributes. -- Initializes thread attributes.
if Use_ARINC653_API then if Use_ARINC653_API = False then
N := N :=
POK_Make_Function_Call_With_Assert POK_Make_Function_Call_With_Assert
(RF (RE_Pok_Thread_Attr_Init), (RF (RE_Pok_Thread_Attr_Init),
...@@ -228,7 +228,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -228,7 +228,7 @@ package body Ocarina.Backends.POK_C.Main is
end if; end if;
if Get_Thread_Period (E) /= Null_Time then if Get_Thread_Period (E) /= Null_Time then
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Member_Value := Map_Time_To_Millisecond (Get_Thread_Period (E)); Member_Value := Map_Time_To_Millisecond (Get_Thread_Period (E));
else else
Member_Value := Map_Time (Get_Thread_Period (E)); Member_Value := Map_Time (Get_Thread_Period (E));
...@@ -269,7 +269,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -269,7 +269,7 @@ package body Ocarina.Backends.POK_C.Main is
Capacity : Node_Id; Capacity : Node_Id;
begin begin
if TA /= Empty_Time_Array then if TA /= Empty_Time_Array then
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Capacity := Map_Time_To_Millisecond (TA (1)); Capacity := Map_Time_To_Millisecond (TA (1));
else else
Capacity := Map_Time (TA (1)); Capacity := Map_Time (TA (1));
...@@ -300,7 +300,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -300,7 +300,7 @@ package body Ocarina.Backends.POK_C.Main is
Parameters := New_List (CTN.K_Parameter_List); Parameters := New_List (CTN.K_Parameter_List);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Append_Node_To_List Append_Node_To_List
(Make_Variable_Address (Copy_Node (Tattr)), (Make_Variable_Address (Copy_Node (Tattr)),
Parameters); Parameters);
...@@ -496,7 +496,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -496,7 +496,7 @@ package body Ocarina.Backends.POK_C.Main is
Append_Node_To_List (N, Call_Parameters); Append_Node_To_List (N, Call_Parameters);
end if; end if;
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Added_Parameter := RE (RE_Destination); Added_Parameter := RE (RE_Destination);
else else
Added_Parameter := RE (RE_Pok_Port_Direction_In); Added_Parameter := RE (RE_Pok_Port_Direction_In);
...@@ -513,7 +513,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -513,7 +513,7 @@ package body Ocarina.Backends.POK_C.Main is
(Make_Defining_Identifier (Map_Port_Var (F))), (Make_Defining_Identifier (Map_Port_Var (F))),
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Append_Node_To_List Append_Node_To_List
(Make_Variable_Address (Make_Variable_Address
(Make_Defining_Identifier (VN (V_Ret))), (Make_Defining_Identifier (VN (V_Ret))),
...@@ -532,7 +532,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -532,7 +532,7 @@ package body Ocarina.Backends.POK_C.Main is
POK_Add_Return_Assertion (Statements); POK_Add_Return_Assertion (Statements);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Variable_Type := RE (RE_Queuing_Port_Id_Type); Variable_Type := RE (RE_Queuing_Port_Id_Type);
else else
Variable_Type := RE (RE_Uint8_T); Variable_Type := RE (RE_Uint8_T);
...@@ -583,7 +583,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -583,7 +583,7 @@ package body Ocarina.Backends.POK_C.Main is
-- Map the port of the sampling port, take in -- Map the port of the sampling port, take in
-- account potential virtual bus layers. -- account potential virtual bus layers.
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Append_Node_To_List Append_Node_To_List
(RE (RE_Destination), (RE (RE_Destination),
Call_Parameters); Call_Parameters);
...@@ -594,7 +594,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -594,7 +594,7 @@ package body Ocarina.Backends.POK_C.Main is
end if; end if;
if Get_POK_Refresh_Time (F) /= Null_Time then if Get_POK_Refresh_Time (F) /= Null_Time then
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
N := N :=
Map_Time_To_Millisecond Map_Time_To_Millisecond
(Get_POK_Refresh_Time (F)); (Get_POK_Refresh_Time (F));
...@@ -611,7 +611,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -611,7 +611,7 @@ package body Ocarina.Backends.POK_C.Main is
(Make_Defining_Identifier (Map_Port_Var (F))), (Make_Defining_Identifier (Map_Port_Var (F))),
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
Called_Function := RF (RE_Create_Sampling_Port); Called_Function := RF (RE_Create_Sampling_Port);
else else
...@@ -626,7 +626,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -626,7 +626,7 @@ package body Ocarina.Backends.POK_C.Main is
POK_Add_Return_Assertion (Statements); POK_Add_Return_Assertion (Statements);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Variable_Type := RE (RE_Sampling_Port_Id_Type); Variable_Type := RE (RE_Sampling_Port_Id_Type);
else else
Variable_Type := RE (RE_Uint8_T); Variable_Type := RE (RE_Uint8_T);
...@@ -712,7 +712,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -712,7 +712,7 @@ package body Ocarina.Backends.POK_C.Main is
-- Map the size of the port, take in account -- Map the size of the port, take in account
-- potential virtual bus layers. -- potential virtual bus layers.
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Append_Node_To_List (RE (RE_Source), Call_Parameters); Append_Node_To_List (RE (RE_Source), Call_Parameters);
else else
Append_Node_To_List Append_Node_To_List
...@@ -722,7 +722,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -722,7 +722,7 @@ package body Ocarina.Backends.POK_C.Main is
if Get_POK_Refresh_Time (F) /= Null_Time then if Get_POK_Refresh_Time (F) /= Null_Time then
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
N := N :=
Map_Time_To_Millisecond Map_Time_To_Millisecond
(Get_POK_Refresh_Time (F)); (Get_POK_Refresh_Time (F));
...@@ -741,7 +741,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -741,7 +741,7 @@ package body Ocarina.Backends.POK_C.Main is
(Make_Defining_Identifier (Map_Port_Var (F))), (Make_Defining_Identifier (Map_Port_Var (F))),
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
Called_Function := RF (RE_Create_Sampling_Port); Called_Function := RF (RE_Create_Sampling_Port);
else else
...@@ -756,7 +756,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -756,7 +756,7 @@ package body Ocarina.Backends.POK_C.Main is
POK_Add_Return_Assertion (Statements); POK_Add_Return_Assertion (Statements);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Variable_Type := RE (RE_Sampling_Port_Id_Type); Variable_Type := RE (RE_Sampling_Port_Id_Type);
else else
Variable_Type := RE (RE_Uint8_T); Variable_Type := RE (RE_Uint8_T);
...@@ -798,7 +798,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -798,7 +798,7 @@ package body Ocarina.Backends.POK_C.Main is
Append_Node_To_List (N, Call_Parameters); Append_Node_To_List (N, Call_Parameters);
end if; end if;
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Added_Parameter := RE (RE_Source); Added_Parameter := RE (RE_Source);
else else
Added_Parameter := RE (RE_Pok_Port_Direction_Out); Added_Parameter := RE (RE_Pok_Port_Direction_Out);
...@@ -815,7 +815,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -815,7 +815,7 @@ package body Ocarina.Backends.POK_C.Main is
(Make_Defining_Identifier (Map_Port_Var (F))), (Make_Defining_Identifier (Map_Port_Var (F))),
Call_Parameters); Call_Parameters);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Add_Return_Variable_In_Parameters (Call_Parameters); Add_Return_Variable_In_Parameters (Call_Parameters);
Called_Function := RF (RE_Create_Queuing_Port); Called_Function := RF (RE_Create_Queuing_Port);
...@@ -832,7 +832,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -832,7 +832,7 @@ package body Ocarina.Backends.POK_C.Main is
POK_Add_Return_Assertion (Statements); POK_Add_Return_Assertion (Statements);
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Variable_Type := RE (RE_Queuing_Port_Id_Type); Variable_Type := RE (RE_Queuing_Port_Id_Type);
else else
Variable_Type := RE (RE_Uint8_T); Variable_Type := RE (RE_Uint8_T);
...@@ -933,7 +933,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -933,7 +933,7 @@ package body Ocarina.Backends.POK_C.Main is
Add_Include (E => RH (RH_Activity)); Add_Include (E => RH (RH_Activity));
if POK_Flavor = ARINC653 then if Use_ARINC653_API then
Process_Variable_Type := RE (RE_Process_Id_Type); Process_Variable_Type := RE (RE_Process_Id_Type);
Process_Variable_Name := RE (RE_Arinc_Threads); Process_Variable_Name := RE (RE_Arinc_Threads);
else else
...@@ -953,7 +953,7 @@ package body Ocarina.Backends.POK_C.Main is ...@@ -953,7 +953,7 @@ package body Ocarina.Backends.POK_C.Main is