Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
61ec3cee
Commit
61ec3cee
authored
Dec 05, 2014
by
Julien
Browse files
Add the -k deos option to the pok generation tool
parent
fca3678e
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-pok_c-activity.adb
View file @
61ec3cee
...
...
@@ -559,7 +559,7 @@ package body Ocarina.Backends.POK_C.Activity is
-- of the device can transport data that was
-- manipulated by a virtual bus.
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Called_Function
:=
RE
(
RE_Read_Sampling_Message
);
Type_Used
:=
RE
(
RE_Sampling_Port_Id_Type
);
else
...
...
@@ -581,7 +581,7 @@ package body Ocarina.Backends.POK_C.Activity is
Used_Type
=>
Type_Used
)),
CTN
.
Declarations
(
Current_File
));
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Validity_Type
);
else
Type_Used
:=
RE
(
RE_Bool_T
);
...
...
@@ -595,7 +595,7 @@ package body Ocarina.Backends.POK_C.Activity is
Used_Type
=>
Type_Used
),
Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Message_Size_Type
);
else
Type_Used
:=
RE
(
RE_Pok_Port_Size_T
);
...
...
@@ -673,7 +673,7 @@ package body Ocarina.Backends.POK_C.Activity is
(
Map_Port_Var_Valid
(
F
,
Current_Device
))),
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
end
if
;
...
...
@@ -685,7 +685,7 @@ package body Ocarina.Backends.POK_C.Activity is
Call_Parameters
);
if
Get_Timeout_Value
(
F
)
/=
Null_Time
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
N
:=
Map_Time_To_Millisecond
(
Get_Timeout_Value
(
F
));
...
...
@@ -709,7 +709,7 @@ package body Ocarina.Backends.POK_C.Activity is
(
Map_Port_Var_Length
(
F
,
Current_Device
))),
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
Called_Function
:=
RF
(
RE_Read_Blackboard
);
else
...
...
@@ -721,7 +721,7 @@ package body Ocarina.Backends.POK_C.Activity is
(
Called_Function
,
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Message_Size_Type
);
else
Type_Used
:=
RE
(
RE_Pok_Port_Size_T
);
...
...
@@ -735,7 +735,7 @@ package body Ocarina.Backends.POK_C.Activity is
Used_Type
=>
Type_Used
),
Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Blackboard_Id_Type
);
else
Type_Used
:=
RE
(
RE_Uint8_T
);
...
...
@@ -771,7 +771,7 @@ package body Ocarina.Backends.POK_C.Activity is
Current_Device
);
end
if
;
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Append_Node_To_List
(
Make_Expression
...
...
@@ -789,7 +789,7 @@ package body Ocarina.Backends.POK_C.Activity is
Call_Parameters
);
if
Get_Timeout_Value
(
F
)
/=
Null_Time
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
N
:=
Map_Time_To_Millisecond
(
Get_Timeout_Value
(
F
));
...
...
@@ -838,7 +838,7 @@ package body Ocarina.Backends.POK_C.Activity is
Call_Parameters
);
if
Get_Timeout_Value
(
F
)
/=
Null_Time
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
N
:=
Map_Time_To_Millisecond
(
Get_Timeout_Value
(
F
));
...
...
@@ -897,7 +897,7 @@ package body Ocarina.Backends.POK_C.Activity is
Used_Type
=>
Type_Used
)),
CTN
.
Declarations
(
Current_File
));
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Message_Size_Type
);
else
Type_Used
:=
RE
(
RE_Pok_Port_Size_T
);
...
...
@@ -916,7 +916,7 @@ package body Ocarina.Backends.POK_C.Activity is
Call_Parameters
);
if
Get_Timeout_Value
(
F
)
/=
Null_Time
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
N
:=
Map_Time_To_Millisecond
(
Get_Timeout_Value
(
F
));
...
...
@@ -948,7 +948,7 @@ package body Ocarina.Backends.POK_C.Activity is
(
Map_Port_Var_Length
(
F
))),
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
Called_Function
:=
RE
(
RE_Receive_Buffer
);
...
...
@@ -961,7 +961,7 @@ package body Ocarina.Backends.POK_C.Activity is
(
Called_Function
,
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Message_Size_Type
);
else
Type_Used
:=
RE
(
RE_Pok_Port_Size_T
);
...
...
@@ -975,7 +975,7 @@ package body Ocarina.Backends.POK_C.Activity is
Used_Type
=>
Type_Used
),
Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Buffer_Id_Type
);
else
Type_Used
:=
RE
(
RE_Uint8_T
);
...
...
@@ -1023,7 +1023,7 @@ package body Ocarina.Backends.POK_C.Activity is
(
CTU
.
Make_Literal
(
CV
.
New_Int_Value
(
0
,
1
,
10
)),
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Called_Function
:=
RE
(
RE_Wait_Event
);
Append_Node_To_List
(
Make_Variable_Address
...
...
@@ -1063,7 +1063,7 @@ package body Ocarina.Backends.POK_C.Activity is
No_List
)));
Append_Node_To_List
(
N
,
WStatements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Event_Id_Type
);
else
Type_Used
:=
RE
(
RE_Pok_Event_Id_T
);
...
...
@@ -1199,7 +1199,7 @@ package body Ocarina.Backends.POK_C.Activity is
Call_Parameters
:=
New_List
(
CTN
.
K_Parameter_List
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Called_Function
:=
RF
(
RE_Periodic_Wait
);
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
else
...
...
@@ -1390,7 +1390,7 @@ package body Ocarina.Backends.POK_C.Activity is
Append_Node_To_List
(
N
,
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
Called_Function
:=
RE
(
RE_Write_Sampling_Message
);
Type_Used
:=
RE
(
RE_Sampling_Port_Id_Type
);
...
...
@@ -1439,7 +1439,7 @@ package body Ocarina.Backends.POK_C.Activity is
N
:=
CTU
.
Get_Data_Size
(
Corresponding_Instance
(
F
));
Append_Node_To_List
(
N
,
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
Called_Function
:=
RF
(
RE_Display_Blackboard
);
else
...
...
@@ -1451,7 +1451,7 @@ package body Ocarina.Backends.POK_C.Activity is
(
Called_Function
,
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Blackboard_Id_Type
);
else
Type_Used
:=
RE
(
RE_Uint8_T
);
...
...
@@ -1512,7 +1512,7 @@ package body Ocarina.Backends.POK_C.Activity is
Append_Node_To_List
(
N
,
Call_Parameters
);
if
Get_Timeout_Value
(
F
)
/=
Null_Time
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
N
:=
Map_Time_To_Millisecond
(
Get_Timeout_Value
(
F
));
...
...
@@ -1525,7 +1525,7 @@ package body Ocarina.Backends.POK_C.Activity is
Append_Node_To_List
(
N
,
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
Called_Function
:=
RE
(
RE_Send_Queuing_Message
);
...
...
@@ -1583,7 +1583,7 @@ package body Ocarina.Backends.POK_C.Activity is
Append_Node_To_List
(
N
,
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
Called_Function
:=
RE
(
RE_Send_Buffer
);
...
...
@@ -1617,7 +1617,7 @@ package body Ocarina.Backends.POK_C.Activity is
and
then
Get_Connection_Pattern
(
F
)
=
Intra_Process
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Event_Id_Type
);
Called_Function
:=
RE
(
RE_Set_Event
);
...
...
@@ -1661,7 +1661,7 @@ package body Ocarina.Backends.POK_C.Activity is
end
loop
;
end
Make_Send_Out
;
begin
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Type_Used
:=
RE
(
RE_Return_Code_Type
);
else
Type_Used
:=
RE
(
RE_Pok_Ret_T
);
...
...
src/backends/ocarina-backends-pok_c-main.adb
View file @
61ec3cee
...
...
@@ -138,7 +138,7 @@ package body Ocarina.Backends.POK_C.Main is
Member_Value
:
Node_Id
;
begin
-- Initializes thread attributes.
if
Use_ARINC653_API
then
if
Use_ARINC653_API
=
False
then
N
:=
POK_Make_Function_Call_With_Assert
(
RF
(
RE_Pok_Thread_Attr_Init
),
...
...
@@ -228,7 +228,7 @@ package body Ocarina.Backends.POK_C.Main is
end
if
;
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
));
else
Member_Value
:=
Map_Time
(
Get_Thread_Period
(
E
));
...
...
@@ -269,7 +269,7 @@ package body Ocarina.Backends.POK_C.Main is
Capacity
:
Node_Id
;
begin
if
TA
/=
Empty_Time_Array
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Capacity
:=
Map_Time_To_Millisecond
(
TA
(
1
));
else
Capacity
:=
Map_Time
(
TA
(
1
));
...
...
@@ -300,7 +300,7 @@ package body Ocarina.Backends.POK_C.Main is
Parameters
:=
New_List
(
CTN
.
K_Parameter_List
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Append_Node_To_List
(
Make_Variable_Address
(
Copy_Node
(
Tattr
)),
Parameters
);
...
...
@@ -496,7 +496,7 @@ package body Ocarina.Backends.POK_C.Main is
Append_Node_To_List
(
N
,
Call_Parameters
);
end
if
;
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Added_Parameter
:=
RE
(
RE_Destination
);
else
Added_Parameter
:=
RE
(
RE_Pok_Port_Direction_In
);
...
...
@@ -513,7 +513,7 @@ package body Ocarina.Backends.POK_C.Main is
(
Make_Defining_Identifier
(
Map_Port_Var
(
F
))),
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Append_Node_To_List
(
Make_Variable_Address
(
Make_Defining_Identifier
(
VN
(
V_Ret
))),
...
...
@@ -532,7 +532,7 @@ package body Ocarina.Backends.POK_C.Main is
POK_Add_Return_Assertion
(
Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Variable_Type
:=
RE
(
RE_Queuing_Port_Id_Type
);
else
Variable_Type
:=
RE
(
RE_Uint8_T
);
...
...
@@ -583,7 +583,7 @@ package body Ocarina.Backends.POK_C.Main is
-- Map the port of the sampling port, take in
-- account potential virtual bus layers.
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Append_Node_To_List
(
RE
(
RE_Destination
),
Call_Parameters
);
...
...
@@ -594,7 +594,7 @@ package body Ocarina.Backends.POK_C.Main is
end
if
;
if
Get_POK_Refresh_Time
(
F
)
/=
Null_Time
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
N
:=
Map_Time_To_Millisecond
(
Get_POK_Refresh_Time
(
F
));
...
...
@@ -611,7 +611,7 @@ package body Ocarina.Backends.POK_C.Main is
(
Make_Defining_Identifier
(
Map_Port_Var
(
F
))),
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
Called_Function
:=
RF
(
RE_Create_Sampling_Port
);
else
...
...
@@ -626,7 +626,7 @@ package body Ocarina.Backends.POK_C.Main is
POK_Add_Return_Assertion
(
Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Variable_Type
:=
RE
(
RE_Sampling_Port_Id_Type
);
else
Variable_Type
:=
RE
(
RE_Uint8_T
);
...
...
@@ -712,7 +712,7 @@ package body Ocarina.Backends.POK_C.Main is
-- Map the size of the port, take in account
-- potential virtual bus layers.
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Append_Node_To_List
(
RE
(
RE_Source
),
Call_Parameters
);
else
Append_Node_To_List
...
...
@@ -722,7 +722,7 @@ package body Ocarina.Backends.POK_C.Main is
if
Get_POK_Refresh_Time
(
F
)
/=
Null_Time
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
N
:=
Map_Time_To_Millisecond
(
Get_POK_Refresh_Time
(
F
));
...
...
@@ -741,7 +741,7 @@ package body Ocarina.Backends.POK_C.Main is
(
Make_Defining_Identifier
(
Map_Port_Var
(
F
))),
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
Called_Function
:=
RF
(
RE_Create_Sampling_Port
);
else
...
...
@@ -756,7 +756,7 @@ package body Ocarina.Backends.POK_C.Main is
POK_Add_Return_Assertion
(
Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Variable_Type
:=
RE
(
RE_Sampling_Port_Id_Type
);
else
Variable_Type
:=
RE
(
RE_Uint8_T
);
...
...
@@ -798,7 +798,7 @@ package body Ocarina.Backends.POK_C.Main is
Append_Node_To_List
(
N
,
Call_Parameters
);
end
if
;
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Added_Parameter
:=
RE
(
RE_Source
);
else
Added_Parameter
:=
RE
(
RE_Pok_Port_Direction_Out
);
...
...
@@ -815,7 +815,7 @@ package body Ocarina.Backends.POK_C.Main is
(
Make_Defining_Identifier
(
Map_Port_Var
(
F
))),
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
Called_Function
:=
RF
(
RE_Create_Queuing_Port
);
...
...
@@ -832,7 +832,7 @@ package body Ocarina.Backends.POK_C.Main is
POK_Add_Return_Assertion
(
Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Variable_Type
:=
RE
(
RE_Queuing_Port_Id_Type
);
else
Variable_Type
:=
RE
(
RE_Uint8_T
);
...
...
@@ -933,7 +933,7 @@ package body Ocarina.Backends.POK_C.Main is
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_Name
:=
RE
(
RE_Arinc_Threads
);
else
...
...
@@ -953,7 +953,7 @@ package body Ocarina.Backends.POK_C.Main is
Set_Str_To_Name_Buffer
(
"tattr"
);
Tattr
:=
Make_Defining_Identifier
(
Name_Find
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
N
:=
Make_Variable_Declaration
(
Defining_Identifier
=>
Copy_Node
(
Tattr
),
...
...
@@ -1018,7 +1018,7 @@ package body Ocarina.Backends.POK_C.Main is
if
Is_Protected_Data
(
Shared_Data
)
then
Call_Parameters
:=
New_List
(
CTN
.
K_Parameter_List
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
-- Add the semaphore name.
Append_Node_To_List
(
Make_Literal
...
...
@@ -1101,7 +1101,7 @@ package body Ocarina.Backends.POK_C.Main is
if
Use_Error_Handling
then
Call_Parameters
:=
New_List
(
CTN
.
K_Parameter_List
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Called_Function
:=
RF
(
RE_Create_Error_Handler
);
Append_Node_To_List
...
...
@@ -1188,7 +1188,7 @@ package body Ocarina.Backends.POK_C.Main is
Declarations
:=
New_List
(
CTN
.
K_Declaration_List
);
Statements
:=
New_List
(
CTN
.
K_Statement_List
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Used_Type
:=
RE
(
RE_Error_Status_Type
);
else
Used_Type
:=
RE
(
RE_Pok_Error_Status_T
);
...
...
@@ -1201,7 +1201,7 @@ package body Ocarina.Backends.POK_C.Main is
Used_Type
=>
Used_Type
),
Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Append_Node_To_List
(
Make_Variable_Declaration
(
Defining_Identifier
=>
...
...
@@ -1242,7 +1242,7 @@ package body Ocarina.Backends.POK_C.Main is
CTU
.
Append_Node_To_List
(
N
,
Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Called_Function
:=
RF
(
RE_Stop_Self
);
else
Called_Function
:=
RF
(
RE_Pok_Thread_Stop_Self
);
...
...
@@ -1252,7 +1252,7 @@ package body Ocarina.Backends.POK_C.Main is
(
Make_Call_Profile
(
Called_Function
,
No_List
),
While_Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Called_Function
:=
RF
(
RE_Get_Error_Status
);
else
Called_Function
:=
RF
(
RE_Pok_Error_Get
);
...
...
@@ -1265,7 +1265,7 @@ package body Ocarina.Backends.POK_C.Main is
(
Make_Defining_Identifier
(
VN
(
V_Error_Status
))),
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Append_Node_To_List
(
Make_Variable_Address
(
Make_Defining_Identifier
(
VN
(
V_Ret
))),
...
...
@@ -1276,7 +1276,7 @@ package body Ocarina.Backends.POK_C.Main is
(
Make_Call_Profile
(
Called_Function
,
Call_Parameters
),
While_Statements
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Used_Member
:=
RE
(
RE_Failed_Process_Id
);
else
Used_Member
:=
Make_Defining_Identifier
(
MN
(
M_Failed_Thread
));
...
...
@@ -1496,7 +1496,7 @@ package body Ocarina.Backends.POK_C.Main is
(
Make_Defining_Identifier
(
Map_Port_Var
(
F
))),
Call_Parameters
);
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Add_Return_Variable_In_Parameters
(
Call_Parameters
);
Called_Function
:=
RF
(
RE_Create_Blackboard
);
...
...
@@ -1526,7 +1526,7 @@ package body Ocarina.Backends.POK_C.Main is
and
then
Is_Event
(
F
)
and
then
Is_In
(
F
)
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Append_Node_To_List
(
Make_Literal
(
CV
.
New_Pointed_Char_Value
(
Map_Port_Name
(
F
))),
...
...
@@ -1595,7 +1595,7 @@ package body Ocarina.Backends.POK_C.Main is
and
then
Is_Event
(
F
)
and
then
Is_In
(
F
)
then
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Append_Node_To_List
(
Make_Literal
(
CV
.
New_Pointed_Char_Value
(
Map_Port_Name
(
F
))),
...
...
@@ -1697,7 +1697,7 @@ package body Ocarina.Backends.POK_C.Main is
end
if
;
end
loop
;
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Used_Member
:=
RE
(
RE_Error_Code
);
else
Used_Member
:=
Make_Defining_Identifier
(
MN
(
M_Error_Kind
));
...
...
@@ -1770,7 +1770,7 @@ package body Ocarina.Backends.POK_C.Main is
end
if
;
end
loop
;
if
POK_Flavor
=
ARINC653
then
if
Use_
ARINC653
_API
then
Used_Member
:=
RE
(
RE_Error_Code
);
else
Used_Member
:=
Make_Defining_Identifier
(
MN
(
M_Error_Kind
));
...
...
src/backends/ocarina-backends-pok_c-runtime.adb
View file @
61ec3cee
...
...
@@ -125,7 +125,14 @@ package body Ocarina.Backends.POK_C.Runtime is
Initialized
:=
True
;
if
POK_Flavor
=
DEOS
then
RE_Header_Table
(
RE_Create_Process
)
:=
RH_Apex
;
for
E
in
ARF_Id
loop
RE_Header_Table
(
E
)
:=
RH_Apex
;
end
loop
;
for
E
in
ART_Id
loop
RE_Header_Table
(
E
)
:=
RH_Apex
;
end
loop
;
end
if
;
if
POK_Flavor
=
ARINC653
then
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment