Commit 866a2e9f authored by yoogx's avatar yoogx

* Defends against empty destination list

parent b8bc1a4b
......@@ -684,7 +684,11 @@ package body Ocarina.Backends.Cheddar.Mapping is
K := Make_Defining_Identifier
(Fully_Qualified_Instance_Name (E));
Append_Node_To_List (K, XTN.Subitems (N));
else
if Present (AIN.First_Node (Get_Destination_Ports (P))) then
-- We have to defends against the destination being an empty list.
Append_Node_To_List
(Make_Assignement
(Make_Defining_Identifier (Get_String_Name ("to_type")),
......@@ -701,6 +705,7 @@ package body Ocarina.Backends.Cheddar.Mapping is
Append_Node_To_List (K, XTN.Subitems (N));
end if;
end if;
return N;
end Map_Dependency;
......
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