Commit 6d597682 authored by hugues.jerome's avatar hugues.jerome
Browse files

* If a component cannot be instantiated, exit immediately

git-svn-id: 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent b95e255b
......@@ -224,6 +224,7 @@ package body Ocarina.Instances.Components.Features is
if Component_Category'Val
(Subcomponent_Category (Feature)) = CC_Data
and then Present (Entity_Ref (Feature))
and then Present (Get_Instance (ATE.Get_Referenced_Entity
(Entity_Ref (Feature))))
......@@ -78,7 +78,8 @@ package body Ocarina.Instances.Messages is
pragma Assert (Present (Node));
Error_Loc (1) := Loc (Node);
Error_Name (1) := Get_Name_Of_Entity (Node);
DE ("%could not be properly instantiated");
DE ("%cannot be properly instantiated");
Exit_On_Error (True, "Cannot instantiate full model, exit now");
end Display_Instantiation_Error;
end Ocarina.Instances.Messages;
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