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

fix errors, existing pohic examples compile again



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@540 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 44a12491
......@@ -751,10 +751,8 @@ package body Ocarina.Backends.PO_HI_C.Activity is
procedure Make_Send_Out_Ports is
N : Node_Id;
F : Node_Id;
Send_Alternative_Label : constant List_Id
:= New_List (CTN.K_Label_List);
Send_Alternative_Stmts : constant List_Id
:= New_List (CTN.K_Statement_List);
Send_Alternative_Label : List_Id;
Send_Alternative_Stmts : List_Id;
Error_Already_Defined : Boolean := False;
begin
N := Message_Comment ("Send the OUT ports");
......@@ -766,6 +764,9 @@ package body Ocarina.Backends.PO_HI_C.Activity is
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)),
......
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