* When iterating on process ports, only go towards

subcomponents ports For #268
OpenAADL · Oct 14, 2020 · 8ba6dfe · 8ba6dfe
1 parent 519ad85
commit 8ba6dfe
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/backends/po_hi_c/ocarina-backends-po_hi_c-marshallers.adb b/src/backends/po_hi_c/ocarina-backends-po_hi_c-marshallers.adb
@@ -1272,6 +1272,7 @@ package body Ocarina.Backends.PO_HI_C.Marshallers is
 
             while Present (C) loop
                if Kind (C) = K_Port_Spec_Instance
+                 and then Is_In (C)
                  and then not AAU.Is_Empty (Destinations (C))
                then
                   D := First_Node (Destinations (C));