diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-06-08 06:22:45 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-06-08 06:22:45 +0200 |
commit | 1bf8aa85f2adbfb7d56a0aea66f52615889bb7bc (patch) | |
tree | f2eb558ee67eb7c7cb99b243b6a53ce24fe59f8d /src/grt/grt-vpi.ads | |
parent | bbc36065b2806bc6b96e747b347facff06d5272b (diff) | |
download | ghdl-1bf8aa85f2adbfb7d56a0aea66f52615889bb7bc.tar.gz ghdl-1bf8aa85f2adbfb7d56a0aea66f52615889bb7bc.tar.bz2 ghdl-1bf8aa85f2adbfb7d56a0aea66f52615889bb7bc.zip |
grt-vpi: add more traces for vpi_register_systf
Diffstat (limited to 'src/grt/grt-vpi.ads')
-rw-r--r-- | src/grt/grt-vpi.ads | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/src/grt/grt-vpi.ads b/src/grt/grt-vpi.ads index 187dcbfdd..8db022af9 100644 --- a/src/grt/grt-vpi.ads +++ b/src/grt/grt-vpi.ads @@ -299,8 +299,22 @@ package Grt.Vpi is return vpiHandle; pragma Export (C, vpi_put_value, "vpi_put_value"); + type t_vpi_systf_data is record + mType: Integer; + sysfunctype : Integer; + tfname : Ghdl_C_String; + calltf : Address; + compiletf : Address; + sizetf : Address; + user_data : Address; + end record; + pragma Convention (C, t_vpi_systf_data); + + type p_vpi_systf_data is access all t_vpi_systf_data; + pragma Convention (C, p_vpi_systf_data); + -- vpiHandle vpi_register_systf(const struct t_vpi_systf_data*ss) - function vpi_register_systf (aSs : Address) return vpiHandle; + function vpi_register_systf (Data : p_vpi_systf_data) return vpiHandle; pragma Export (C, vpi_register_systf, "vpi_register_systf"); -- int vpi_remove_cb(vpiHandle ref) |