diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-06-24 05:46:54 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-06-24 05:46:54 +0200 |
commit | e2dadd718f21fc88ab7fac08d958ec40d3e2407a (patch) | |
tree | 4cf0a50cd208cbe420d5ac77378d3f6521cc20d4 /src/grt/grt-processes.adb | |
parent | fb0e748588b16dd93e814eea8b9eb422b0fc7287 (diff) | |
download | ghdl-e2dadd718f21fc88ab7fac08d958ec40d3e2407a.tar.gz ghdl-e2dadd718f21fc88ab7fac08d958ec40d3e2407a.tar.bz2 ghdl-e2dadd718f21fc88ab7fac08d958ec40d3e2407a.zip |
vpi: call last_known_delta after initialization (if makes sense).
closes #93
Diffstat (limited to 'src/grt/grt-processes.adb')
-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; |