diff --git a/src/core/model/ocarina-analyzer-aadl-semantics.adb b/src/core/model/ocarina-analyzer-aadl-semantics.adb index 3091e39274dce6ee8c89072fcdc6c3bcd711e1e5..c7c47607a7e6eb31d48ff789723027c96b02b9f9 100644 --- a/src/core/model/ocarina-analyzer-aadl-semantics.adb +++ b/src/core/model/ocarina-analyzer-aadl-semantics.adb @@ -1068,15 +1068,15 @@ package body Ocarina.Analyzer.AADL.Semantics is when CT_Error => Success := False; - when CT_Port_Connection - | CT_Feature + when CT_Feature | CT_Access_Subprogram_Group | CT_Access_Virtual_Bus | CT_Access => Success := True; -- XXX incomplete TODO - when CT_Data + when CT_Port_Connection + | CT_Data | CT_Data_Delayed | CT_Event_Data | CT_Parameter =>