using a different name for Call_Parameters1

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

@@ -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 :=