Simu: Better interface to C code

templates/concurrency_view/simulation-adb/block.tmplt

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