diff options
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) |