diff options
| -rw-r--r-- | src/grt/grt-processes.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb index 91e56b6ca..67b7a88a5 100644 --- a/src/grt/grt-processes.adb +++ b/src/grt/grt-processes.adb @@ -842,6 +842,13 @@ package body Grt.Processes is -- of step f of the simulation cycle, below. Next_Time := Compute_Next_Time; if Next_Time /= 0 then + if Has_Callbacks (Hooks.Cb_Last_Known_Delta) then + Call_Callbacks (Hooks.Cb_Last_Known_Delta); + Flush_Active_Chain; + Next_Time := Compute_Next_Time; + end if; + end if; + if Next_Time /= 0 then Update_Active_Chain; end if; |