Commit d29dd1b2 authored by julien.delange's avatar julien.delange

fix pohic testsuite



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@550 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 07d201ef
......@@ -789,8 +789,10 @@ package body Ocarina.Backends.PO_HI_C.Activity is
(Used_Bus,
(Parent_Component
(Parent_Subcomponent (E))));
Send_Function_Name := Get_Send_Function_Name
(Corresponding_Instance (Used_Device));
if Used_Device /= No_Node then
Send_Function_Name := Get_Send_Function_Name
(Corresponding_Instance (Used_Device));
end if;
end if;
if Send_Function_Name /= No_Name then
......
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