* Also condifer component implementation when checking for the

applicability of a property Fixes issue #35
OpenAADL · May 19, 2015 · 22e0fbf · 22e0fbf
1 parent 0b591bf
commit 22e0fbf
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/core/model/ocarina-analyzer-aadl-queries.adb b/src/core/model/ocarina-analyzer-aadl-queries.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---       Copyright (C) 2009 Telecom ParisTech, 2010-2014 ESA & ISAE.        --
+--       Copyright (C) 2009 Telecom ParisTech, 2010-2015 ESA & ISAE.        --
 --                                                                          --
 -- Ocarina  is free software;  you  can  redistribute  it and/or  modify    --
 -- it under terms of the GNU General Public License as published by the     --
@@ -966,7 +966,10 @@ package body Ocarina.Analyzer.AADL.Queries is
                       PO_Component_Category
                       or else
                         Named_Element'Val (Category (List_Node)) =
-                        PO_Component_Access)
+                        PO_Component_Access
+                        or else
+                        Named_Element'Val (Category (List_Node)) =
+                        PO_Component_Implementation)
                      and then
                      (Category_Of_Component =
                       Component_Category'Val (Component_Cat (List_Node))))