diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-07-10 17:11:31 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-07-10 17:11:31 +0200 |
commit | 8fd9e4a314bec9a3dc4a260b00d2ed7f589d74c0 (patch) | |
tree | 217b25f1bf2dd4e5e3877375e43938ac0bda0c13 /src/grt/grt-vpi.ads | |
parent | 769b358b41351f5824dd23151270505835cee6bc (diff) | |
download | ghdl-8fd9e4a314bec9a3dc4a260b00d2ed7f589d74c0.tar.gz ghdl-8fd9e4a314bec9a3dc4a260b00d2ed7f589d74c0.tar.bz2 ghdl-8fd9e4a314bec9a3dc4a260b00d2ed7f589d74c0.zip |
Initial work to support vpi via dll on windows.
Fixes #116
Diffstat (limited to 'src/grt/grt-vpi.ads')
-rw-r--r-- | src/grt/grt-vpi.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/grt/grt-vpi.ads b/src/grt/grt-vpi.ads index a669632ca..3c8911e1d 100644 --- a/src/grt/grt-vpi.ads +++ b/src/grt/grt-vpi.ads @@ -269,8 +269,8 @@ package Grt.Vpi is return vpiHandle; pragma Export (C, vpi_put_value, "vpi_put_value"); - -- void vpi_register_systf(const struct t_vpi_systf_data*ss) - procedure vpi_register_systf (aSs : Address); + -- vpiHandle vpi_register_systf(const struct t_vpi_systf_data*ss) + function vpi_register_systf (aSs : Address) return vpiHandle; pragma Export (C, vpi_register_systf, "vpi_register_systf"); -- int vpi_remove_cb(vpiHandle ref) @@ -301,8 +301,8 @@ package Grt.Vpi is function vpi_chk_error (Info : p_vpi_error_info) return Integer; pragma Export (C, vpi_chk_error); - function vpi_control (Op : Integer; Status : Integer) return Integer; - pragma Export (C, vpi_control); + function vpi_control_np (Op : Integer; Status : Integer) return Integer; + pragma Export (C, vpi_control_np); ------------------------------------------------------------------------------- -- * * * G H D L h o o k s * * * * * * * * * * * * * * * * * * * * * * * |