Commit b61d04dc authored by yoogx's avatar yoogx

* Fix the check that a port is actually used.

          Submitted by Elie Richa <richa@adacore.com>
parent 1b39cb0e
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment