Commit 5ebc0112 authored by jdelange's avatar jdelange

* ocarina/src/backends/ocarina-backends-po_hi_c-activity.adb

   - Make sure we use transport_send_default when appropriate



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@3062 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 021e5501
......@@ -728,20 +728,18 @@ package body Ocarina.Backends.PO_HI_C.Activity is
F := First_Node (Features (E));
while Present (F) loop
Send_Function_Name := No_Name;
Used_Bus := No_Node;
if Kind (F) = K_Port_Spec_Instance and then Is_Out (F) then
Has_Send_Output_Declared := True;
Send_Alternative_Label := New_List (CTN.K_Label_List);
Send_Alternative_Stmts := New_List (CTN.K_Statement_List);
Append_Node_To_List
(Make_Defining_Identifier
(Map_C_Enumerator_Name (F)),
Send_Alternative_Label);
Used_Bus := Get_Associated_Bus (F);
if Get_Associated_Bus (F) /= No_Node then
if Used_Bus /= No_Node then
Used_Bus := Get_Associated_Bus (F);
if AAU.Is_Virtual_Bus (Used_Bus) then
Used_Bus := Parent_Component
......@@ -758,6 +756,11 @@ package body Ocarina.Backends.PO_HI_C.Activity is
end if;
end if;
Append_Node_To_List
(Make_Defining_Identifier
(Map_C_Enumerator_Name (F)),
Send_Alternative_Label);
if Send_Function_Name /= No_Name then
Append_Node_To_List
(Make_Function_Specification
......
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