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
5106afee
Commit
5106afee
authored
Feb 06, 2016
by
Jerome Hugues
Browse files
* Make sure the process has subcomponents before iterating
parent
f4de0d3f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-c_common-types.adb
View file @
5106afee
...
...
@@ -999,11 +999,14 @@ package body Ocarina.Backends.C_Common.Types is
-- (see ocarina-backends-po_hi_c-request.adb) are used.
elsif
AINU
.
Is_Process
(
Corresponding_Instance
(
C
))
then
S
:=
First_Node
(
Subcomponents
(
Corresponding_Instance
(
C
)));
while
Present
(
S
)
loop
Visit_Component_Instance
(
Corresponding_Instance
(
S
));
S
:=
Next_Node
(
S
);
end
loop
;
if
Present
(
Subcomponents
(
Corresponding_Instance
(
C
)))
then
S
:=
First_Node
(
Subcomponents
(
Corresponding_Instance
(
C
)));
while
Present
(
S
)
loop
Visit_Component_Instance
(
Corresponding_Instance
(
S
));
S
:=
Next_Node
(
S
);
end
loop
;
end
if
;
end
if
;
C
:=
Next_Node
(
C
);
end
loop
;
...
...
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