Commit f8faaceb authored by jhugues's avatar jhugues
Browse files

* Return a better error message if no root system can be found



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@3583 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent b2a61c49
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2005-2009, GET-Telecom Paris. -- -- Copyright (C) 2005-2012, European Space Agency (ESA). --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify -- -- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the -- -- it under terms of the GNU General Public License as published by the --
...@@ -206,6 +206,9 @@ package body Ocarina.Instances is ...@@ -206,6 +206,9 @@ package body Ocarina.Instances is
and then ATE.Get_Name_Of_Entity (Root_System, False) /= and then ATE.Get_Name_Of_Entity (Root_System, False) /=
Root_System_Name Root_System_Name
then then
Error_Name (1) := Root_System_Name;
Error_Name (2) := ATE.Get_Name_Of_Entity (List_Node);
DE ("system % is not a root system, use %");
Root_System := No_Node; Root_System := No_Node;
end if; end if;
end if; end if;
...@@ -216,7 +219,6 @@ package body Ocarina.Instances is ...@@ -216,7 +219,6 @@ package body Ocarina.Instances is
if No (Root_System) then if No (Root_System) then
Instance_Root := No_Node; Instance_Root := No_Node;
else else
-- The first step of the instantiation consist of propagate the -- The first step of the instantiation consist of propagate the
-- properties declared in the AADL packages to the AADL -- properties declared in the AADL packages to the AADL
......
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