Commit fa79d14f authored by yoogx's avatar yoogx
Browse files

* Only instance all subprograms

        For openaadl/ocarina#190
parent c8713534
......@@ -58,6 +58,7 @@ package body Ocarina.Instances is
use Ocarina.Namet;
use Ocarina.Output;
use Ocarina.ME_AADL;
use Ocarina.ME_AADL.AADL_Tree.Nodes;
use Ocarina.ME_AADL.AADL_Instances.Nodes;
use Ocarina.ME_AADL.AADL_Instances.Entities;
......@@ -319,8 +320,11 @@ package body Ocarina.Instances is
List_Node := L1.First;
while Present (List_Node) loop
if No (Default_Instance (List_Node)) then
Set_Instance (List_Node,
Instantiate_Component (Instance_Root, List_Node));
if ATE.Get_Category_Of_Component (List_Node) = CC_Subprogram
then
Set_Instance (List_Node,
Instantiate_Component (Instance_Root, List_Node));
end if;
end if;
List_Node := ATN.Next_Entity (List_Node);
end loop;
......
Supports Markdown
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