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
2c48bb29
Commit
2c48bb29
authored
Jul 20, 2015
by
yoogx
Browse files
Merge branch 'master' of
https://github.com/OpenAADL/ocarina
parents
5c972459
12724f9f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-po_hi_c-main.adb
View file @
2c48bb29
...
...
@@ -493,18 +493,23 @@ package body Ocarina.Backends.PO_HI_C.Main is
Append_Node_To_List
(
N
,
CTN
.
Declarations
(
Current_File
));
N
:=
Make_Expression
(
Left_Expr
=>
Make_Member_Designator
(
Defining_Identifier
=>
Make_Defining_Identifier
(
MN
(
M_Protected_Id
)),
Aggregate_Name
=>
Map_C_Defining_Identifier
(
S
)),
Operator
=>
Op_Equal
,
Right_Expr
=>
if
Get_Concurrency_Protocol
(
Corresponding_Instance
(
S
))
/=
Concurrency_NoneSpecified
then
N
:=
Make_Expression
(
Left_Expr
=>
Make_Member_Designator
(
Defining_Identifier
=>
Make_Defining_Identifier
(
MN
(
M_Protected_Id
)),
Aggregate_Name
=>
Map_C_Defining_Identifier
(
S
)),
Operator
=>
Op_Equal
,
Right_Expr
=>
CTN
.
Default_Value_Node
(
Backend_Node
(
Identifier
(
S
))));
Append_Node_To_List
(
N
,
CTN
.
Statements
(
Main_Function
));
Append_Node_To_List
(
N
,
CTN
.
Statements
(
Main_Function
));
end
if
;
else
-- Visit the component instance corresponding to the
-- subcomponent S.
...
...
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