Commit 7873c374 authored by Bechir Zalila's avatar Bechir Zalila
Browse files

* (ocarina-backends-expander.adb): When expanding feature groups,

	make sure the created feature are aware of the connections they
	are involved in.
parent 18ff348f
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2015 ESA & ISAE. -- -- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2016 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- --
...@@ -193,11 +193,11 @@ package body Ocarina.Backends.Expander is ...@@ -193,11 +193,11 @@ package body Ocarina.Backends.Expander is
end if; end if;
Append_Node_To_List Append_Node_To_List
(Make_Node_Container (L), (Make_Node_Container (L, Extra_Item (K)),
Sources (N)); Sources (N));
Append_Node_To_List Append_Node_To_List
(Make_Node_Container (N), (Make_Node_Container (N, Extra_Item (K)),
Destinations (L)); Destinations (L));
end if; end if;
...@@ -227,11 +227,11 @@ package body Ocarina.Backends.Expander is ...@@ -227,11 +227,11 @@ package body Ocarina.Backends.Expander is
end if; end if;
Append_Node_To_List Append_Node_To_List
(Make_Node_Container (L), (Make_Node_Container (L, Extra_Item (K)),
Destinations (N)); Destinations (N));
Append_Node_To_List Append_Node_To_List
(Make_Node_Container (N), (Make_Node_Container (N, Extra_Item (K)),
Sources (L)); Sources (L));
end if; end if;
......
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