Commit a37a9efb authored by bouazizrahma's avatar bouazizrahma Committed by Jerome Hugues

using a different name for Call_Parameters1

parent aabafe2e
......@@ -364,7 +364,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Impl_Kind : constant Supported_Thread_Implementation :=
Get_Thread_Implementation_Kind (E);
Call_Parameters : List_Id;
Call_Parameters1 : List_Id;
Call_Parameters_Of_BA_Initialization_Function : List_Id;
N, N1 : Node_Id;
procedure Make_Wait_Event;
......@@ -1548,7 +1548,8 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Append_Node_To_List (N, Statements);
Call_Parameters := New_List (CTN.K_Parameter_List);
Call_Parameters1 := New_List (CTN.K_Parameter_List);
Call_Parameters_Of_BA_Initialization_Function :=
New_List (CTN.K_Parameter_List);
if Current_Device /= No_Node then
N :=
Make_Defining_Identifier
......@@ -1560,7 +1561,9 @@ package body Ocarina.Backends.PO_HI_C.Activity is
N1 := Make_Defining_Identifier (Map_C_Enumerator_Name (S));
end if;
Append_Node_To_List (N, Call_Parameters);
Append_Node_To_List (N1, Call_Parameters1);
Append_Node_To_List
(N1,
Call_Parameters_Of_BA_Initialization_Function);
N :=
CTU.Make_Call_Profile
(RE (RE_Wait_For_Next_Period),
......@@ -1581,7 +1584,9 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Make_Variable_Address
(Map_C_Defining_Identifier (N1));
Append_Node_To_List (N, Call_Parameters1);
Append_Node_To_List
(N,
Call_Parameters_Of_BA_Initialization_Function);
end if;
N1 := Next_Node (N1);
......@@ -1609,7 +1614,8 @@ package body Ocarina.Backends.PO_HI_C.Activity is
(Defining_Identifier => Make_Defining_Identifier
(Map_C_BA_Related_Function_Name
(S, BA_Initialization => True)),
Parameters => Call_Parameters1);
Parameters =>
Call_Parameters_Of_BA_Initialization_Function);
Append_Node_To_List (N, Statements);
N :=
......
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