Commit f05e60bd authored by Bechir Zalila's avatar Bechir Zalila

* (ocarina-me_aadl-aadl_tree-nodes.idl): Add a Corresponding_Annex

	field to the Annex_Library as there is for Annex_Subclause.

	* (ocarina-fe_aadl-parser-annexes.adb):  Use Corresponding_Annex
	for annex libraries
parent c6498193
......@@ -1631,6 +1631,9 @@ module Ocarina::ME_AADL::AADL_Tree::Nodes {
boolean Is_Private;
Node_Id Annex_Content;
Node_Id Container_Package;
Node_Id Corresponding_Annex;
// Root of the parsed annex tree. This node is not an AADL tree node.
};
// annex_path ::=
......
......@@ -165,10 +165,7 @@ package body Ocarina.FE_AADL.Parser.Annexes is
if Present (Annex) then
Set_Annex_Content (Annex, Annex_Content);
if Code = PC_Annex_Subclause then
Set_Corresponding_Annex (Annex, Annex_Root);
end if;
Set_Corresponding_Annex (Annex, Annex_Root);
return Annex;
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