Update templates for simulation

templates/concurrency_view/simulation-adb/node.tmplt

@@ -142,7 +142,7 @@ package body Simulator_Interface is
       --   (c) if event == no_event, do nothing
 
       --  for (1) and (2):
-      Run_Observers (Full_State, Current_Event'Access, Id, Stop_Condition);
+      Run_Observers (Full_State, Current_Event, Id, Stop_Condition);
       Process_Event (Current_Event);
 
       --  for (3):
@@ -162,7 +162,7 @@ package body Simulator_Interface is
          declare
             Next_Event : aliased asn1sccObservable_Event := Simulator.Pop_Event;
          begin
-            Run_Observers (Full_State, Next_Event'Access, Id, Stop_Condition);
+            Run_Observers (Full_State, Next_Event, Id, Stop_Condition);
             Process_Event (Next_Event);
          end;
       end loop;
@@ -177,7 +177,7 @@ package body Simulator_Interface is
                New_In_Event : aliased asn1sccObservable_Event :=
                           User_State.@_CAPITALIZE:Block_Names_@_Queue.Data (I);
             begin
-               Run_Observers (Full_State, New_In_Event'Access, Id, Stop_Condition);
+               Run_Observers (Full_State, New_In_Event, Id, Stop_Condition);
                Process_Event (New_In_Event);
             end;
          end loop;

templates/concurrency_view/simulation-ads/node.tmplt

@@ -13,7 +13,7 @@ generic
    with function Full_State_Init return State_With_Observers is <>;
    with function State_As_String (Full_State : State_With_Observers) return String is <>;
    Run_Observers : access procedure (Full_State : in out State_With_Observers;
-                                     Event      : access asn1sccObservable_Event;
+                                     Event      : in out asn1sccObservable_Event;
                                      Id         : out Natural;
                                      Success    : out Boolean);
 package Simulator_Interface is