diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-06-15 04:48:14 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-06-15 04:48:14 +0200 |
| commit | 7d3b9baadb72cd4b5989214af309045d7bc1154c (patch) | |
| tree | 6de57901978e5ce48c871159e5c59dc258efcd9d /src/grt | |
| parent | 8b5697ccdbfc5a060f5d899e9d4f03f73386f073 (diff) | |
| download | ghdl-7d3b9baadb72cd4b5989214af309045d7bc1154c.tar.gz ghdl-7d3b9baadb72cd4b5989214af309045d7bc1154c.tar.bz2 ghdl-7d3b9baadb72cd4b5989214af309045d7bc1154c.zip | |
vpi: add missing properties for cocotb.
Fixes #56
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; |