Commit 92b21a90 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Update templates for simulation

parent d927e48a
......@@ -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;
......
......@@ -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
......
Supports Markdown
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