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

Simu: Better interface to C code

parent 10ad52f7
......@@ -44,11 +44,13 @@ package body @_CAPITALIZE:Name_@_Events is
@_CAPITALIZE:Name_@_PI.@_CAPITALIZE:List_Of_ASync_PIs_@ (Global_State => Global_State);
@@END_IF@@
@@END_TABLE@@
@@IF@@ @_Language_@ /= Timer_Manager
@@TABLE@@
@@-- Do the timers too
when @_CAPITALIZE:Timers_@_PRESENT =>
@@-- Timer expiration for blocks except for the timer manager block itself
when @_CAPITALIZE:Timers_@_PRESENT => -- Timer expiration
@_CAPITALIZE:Name_@_PI.@_CAPITALIZE:Timers_@ (Global_State => Global_State);
@@END_TABLE@@
@@END_IF@@
end case;
@@END_IF@@
@@IF@@ @_List_Of_ASync_RIs'Length_@ > 0
......@@ -76,11 +78,12 @@ package body @_CAPITALIZE:Name_@_Events is
Put_Line ("()");
@@END_IF@@
@@END_TABLE@@
@@IF@@ @_Language_@ /= Timer_Manager
@@TABLE@@
@@-- Do the timers too
when @_CAPITALIZE:Timers_@_PRESENT =>
when @_CAPITALIZE:Timers_@_PRESENT => -- Timer expiration
Put ("@_Name_@: TIMEOUT @_CAPITALIZE:Timers_@");
@@END_TABLE@@
@@END_IF@@
end case;
@@END_IF@@
@@IF@@ @_List_Of_ASync_RIs'Length_@ > 0
......
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