From 7d3b9baadb72cd4b5989214af309045d7bc1154c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 15 Jun 2016 04:48:14 +0200 Subject: vpi: add missing properties for cocotb. Fixes #56 --- src/grt/grt-processes.adb | 5 ++++- src/grt/grt-vpi.adb | 3 +++ 2 files changed, 7 insertions(+), 1 deletion(-) 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; -- cgit v1.2.3