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
5b6e94d0
Commit
5b6e94d0
authored
Aug 02, 2015
by
yoogx
Browse files
Merge branch 'master' of
https://github.com/OpenAADL/ocarina
parents
3c49520a
5e7dd276
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-c_tree-nutils.adb
View file @
5b6e94d0
...
...
@@ -1629,6 +1629,7 @@ package body Ocarina.Backends.C_Tree.Nutils is
M
:
Node_Id
;
Owner
:
Node_Id
;
Declaration
:
Node_Id
;
Data_Accessed
:
Node_Id
;
Hybrid
:
constant
Boolean
:=
AINU
.
Is_Subprogram
(
Caller
)
and
then
...
...
@@ -1664,15 +1665,23 @@ package body Ocarina.Backends.C_Tree.Nutils is
F
:=
AIN
.
First_Node
(
AIN
.
Features
(
Spg
));
while
Present
(
F
)
loop
if
Kind
(
F
)
=
K_Subcomponent_Access_Instance
and
then
Get_Current_Backend_Kind
=
PolyORB_Kernel_C
then
-- This case is specific to POK since we don't
-- handle the shared data with the same patterns as
-- in PolyORB-HI-C. This could be updated later.
Data_Accessed
:=
Get_Accessed_Data
(
F
);
if
Data_Accessed
=
No_Node
then
Display_Located_Error
(
AIN
.
Loc
(
F
),
"is not properly conected to"
&
" any source"
,
Fatal
=>
True
);
end
if
;
Param_Value
:=
Make_Variable_Address
(
Map_C_Defining_Identifier
(
Get
_Accessed
_Data
(
F
)
));
(
Map_C_Defining_Identifier
(
Data
_Accessed
));
Append_Node_To_List
(
Param_Value
,
Call_Profile
);
...
...
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