diff options
| author | Sijmen Woutersen <sijmen.woutersen@technolution.nl> | 2016-11-16 09:46:26 +0100 |
|---|---|---|
| committer | Sijmen Woutersen <sijmen.woutersen@technolution.nl> | 2016-11-16 09:46:26 +0100 |
| commit | 929b4edfe9f6983cbe019fbc3e5fb86a1ee3c396 (patch) | |
| tree | 3cf33ee7323a666a3c567dcd680d5406f34cc354 /src/grt/grt-vpi.adb | |
| parent | 40e21861b113013e36da00e5d7acd8f98d3eb009 (diff) | |
| download | ghdl-929b4edfe9f6983cbe019fbc3e5fb86a1ee3c396.tar.gz ghdl-929b4edfe9f6983cbe019fbc3e5fb86a1ee3c396.tar.bz2 ghdl-929b4edfe9f6983cbe019fbc3e5fb86a1ee3c396.zip | |
implement vpi_free_object
Diffstat (limited to 'src/grt/grt-vpi.adb')
| -rw-r--r-- | src/grt/grt-vpi.adb | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb index 7b62dae65..adabc6a87 100644 --- a/src/grt/grt-vpi.adb +++ b/src/grt/grt-vpi.adb @@ -1330,18 +1330,26 @@ package body Grt.Vpi is return Res; end vpi_register_cb; -------------------------------------------------------------------------------- --- * * * V P I d u m m i e s * * * * * * * * * * * * * * * * * * * * * * -------------------------------------------------------------------------------- - -- int vpi_free_object(vpiHandle ref) function vpi_free_object (aRef: vpiHandle) return integer is - pragma Unreferenced (aRef); + Ref_Copy : vpiHandle; begin + if Flag_Trace then + Trace_Start ("vpi_free_object ("); + Trace (aRef); + Trace (")"); + Trace_Newline; + end if; + Ref_Copy := aRef; + Free(Ref_Copy); return 1; end vpi_free_object; +------------------------------------------------------------------------------- +-- * * * V P I d u m m i e s * * * * * * * * * * * * * * * * * * * * * * +------------------------------------------------------------------------------- + -- int vpi_get_vlog_info(p_vpi_vlog_info vlog_info_p) function vpi_get_vlog_info (info : p_vpi_vlog_info) return integer is begin |