Commit 601086de authored by yoogx's avatar yoogx

* Handle the case of an empty declaration part of a package,

          and a non-empty annex part
parent 079379ef
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2016 ESA & ISAE. -- -- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2017 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify under -- -- Ocarina is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -195,12 +195,6 @@ package body Ocarina.BE_AADL.Namespaces is ...@@ -195,12 +195,6 @@ package body Ocarina.BE_AADL.Namespaces is
List_Node := Next_Node (List_Node); List_Node := Next_Node (List_Node);
end loop; end loop;
else
raise Program_Error;
end if;
if not Someting_To_Print then
return;
end if; end if;
Increment_Indentation; Increment_Indentation;
......
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