Commit e1cf186d authored by jhugues's avatar jhugues
Browse files

* Update resolution algorithm to look up also in colocated


git-svn-id: 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 96feec53
...@@ -2790,13 +2790,30 @@ package body Ocarina.Analyzer.AADL.Links is ...@@ -2790,13 +2790,30 @@ package body Ocarina.Analyzer.AADL.Links is
(Corresponding_Container, (Corresponding_Container,
Item (List_Node)); Item (List_Node));
when AADL_V2 => when AADL_V2 =>
-- Search in subclause
Pointed_Node := Find_Subclause Pointed_Node := Find_Subclause
(Corresponding_Container, List_Node); (Corresponding_Container, List_Node);
-- then in features
if No (Pointed_Node) then if No (Pointed_Node) then
Pointed_Node := Find_Feature Pointed_Node := Find_Feature
(Corresponding_Container, List_Node); (Corresponding_Container, List_Node);
end if; end if;
-- in the case of property applied directly
-- to a subcomponent, then we need to check
-- whether the property refers to a colocated
-- subcomponent.
if No (Pointed_Node) then
Pointed_Node :=
(Scope_Entity (Identifier (Container))),
end if;
end case; end case;
else else
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