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
b61d04dc
Commit
b61d04dc
authored
Oct 24, 2013
by
yoogx
Browse files
* Fix the check that a port is actually used.
Submitted by Elie Richa <richa@adacore.com>
parent
1b39cb0e
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-po_hi_ada-activity.adb
View file @
b61d04dc
...
...
@@ -2609,14 +2609,14 @@ package body Ocarina.Backends.PO_HI_Ada.Activity is
Used
:
Boolean
:=
False
;
begin
while
Present
(
D
)
loop
exit
when
Kind
(
Item
(
D
))
=
K_Port_Spec_Instance
;
if
not
Used
then
if
Parent_Component
(
Item
(
D
))
=
Wrapper
then
Used
:=
True
;
end
if
;
end
if
;
exit
when
Kind
(
Item
(
D
))
=
K_Port_Spec_Instance
;
D
:=
Next_Node
(
D
);
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