Commit 736a099b authored by jhugues's avatar jhugues
Browse files

* Correctly process port connections



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@4764 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 7de992e4
...@@ -1068,15 +1068,15 @@ package body Ocarina.Analyzer.AADL.Semantics is ...@@ -1068,15 +1068,15 @@ package body Ocarina.Analyzer.AADL.Semantics is
when CT_Error => when CT_Error =>
Success := False; Success := False;
when CT_Port_Connection when CT_Feature
| CT_Feature
| CT_Access_Subprogram_Group | CT_Access_Subprogram_Group
| CT_Access_Virtual_Bus | CT_Access_Virtual_Bus
| CT_Access => | CT_Access =>
Success := True; Success := True;
-- XXX incomplete TODO -- XXX incomplete TODO
when CT_Data when CT_Port_Connection
| CT_Data
| CT_Data_Delayed | CT_Data_Delayed
| CT_Event_Data | CT_Event_Data
| CT_Parameter => | CT_Parameter =>
......
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