Commit bda33792 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Update templates for simulation

parent a21ef357
......@@ -109,7 +109,7 @@ package body Simulator_Interface is
Unused_Hash : Hash_Type;
Current_Event : aliased asn1sccObservable_Event := Event;
Id : Natural;
Stop_Condition : Boolean;
Stop_Condition : Boolean := False;
begin
-- Flow:
-- (1) call the observers with the input event
......@@ -174,6 +174,8 @@ package body Simulator_Interface is
Process_Event (New_In_Event);
end;
end loop;
User_State.@_CAPITALIZE:Block_Names_@_Queue.Length := 0;
Update_State (Full_State, User_State);
@@END_IF@@
@@END_TABLE@@
end if;
......
......@@ -23,6 +23,7 @@ when @_CAPITALIZE:Name_@_PRESENT =>
@@END_IF@@
-- Add to the message queue of the receiving function
-- This will raise an exception if the queue size is exceeded
-- Put_Line (Global_State.@_CAPITALIZE:Remote_Function_Names_@_Queue.Length'Img);
Global_State.@_CAPITALIZE:Remote_Function_Names_@_Queue.Length :=
Global_State.@_CAPITALIZE:Remote_Function_Names_@_Queue.Length + 1;
Global_State.@_CAPITALIZE:Remote_Function_Names_@_Queue.Data
......
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