Commit d6d3136d authored by julien.delange's avatar julien.delange
Browse files

fix a bug when a system does not use any device



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@571 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent b85dfabb
......@@ -71,7 +71,7 @@ package body Ocarina.Backends.PO_HI_C.Main is
package body Source_File is
Main_Function : Node_Id;
Current_Device : Node_Id;
Current_Device : Node_Id := No_Node;
procedure Visit_Architecture_Instance (E : Node_Id);
procedure Visit_Component_Instance (E : Node_Id);
......
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