diff options
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/grt-processes.adb | 5 | ||||
| -rw-r--r-- | src/grt/grt-vpi.adb | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb index 04bb2abe9..91e56b6ca 100644 --- a/src/grt/grt-processes.adb +++ b/src/grt/grt-processes.adb @@ -1016,7 +1016,10 @@ package body Grt.Processes is end if; end if; - Call_Callbacks (Hooks.Cb_End_Of_Time_Step); + if Has_Callbacks (Hooks.Cb_End_Of_Time_Step) then + Call_Callbacks (Hooks.Cb_End_Of_Time_Step); + Tn := Compute_Next_Time; + end if; Update_Active_Chain; Next_Time := Tn; diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb index f1305e1db..6cc34a1c9 100644 --- a/src/grt/grt-vpi.adb +++ b/src/grt/grt-vpi.adb @@ -582,6 +582,9 @@ package body Grt.Vpi is Prop := VhpiFullNameP; when vpiName=> Prop := VhpiNameP; + when vpiType => + Tmpstring2 (1 .. 4) := "???" & NUL; + return To_Ghdl_C_String (Tmpstring2'Address); when others=> dbgPut_Line ("vpi_get_str: undefined property"); return null; |