From e2dadd718f21fc88ab7fac08d958ec40d3e2407a Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 24 Jun 2016 05:46:54 +0200 Subject: vpi: call last_known_delta after initialization (if makes sense). closes #93 --- src/grt/grt-processes.adb | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/grt/grt-processes.adb') 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 @@ -841,6 +841,13 @@ package body Grt.Processes is -- first simulation cycle), Tn, is calculated according to the rules -- 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; -- cgit v1.2.3