Commit 87823391 authored by yoogx's avatar yoogx

* Correct property matching tests in case the property

          definition refers to a meta-model element
parent d48caaf9
......@@ -979,6 +979,15 @@ package body Ocarina.Analyzer.AADL.Queries is
(Category_Of_Component =
Component_Category'Val (Component_Cat (List_Node)));
-- if not, then we check that the kind of entity
-- matches one particular meta-model element
if not Can_Apply then
Can_Apply := Kind (Entity) = K_Subcomponent
and then Named_Element'Val (Category (List_Node))
= PO_Subcomponent;
end if;
-- XXX dubious, here we erase the previously
-- computed value of Can_Apply, to be investigated.
......
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