From 8fd9e4a314bec9a3dc4a260b00d2ed7f589d74c0 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 10 Jul 2016 17:11:31 +0200 Subject: Initial work to support vpi via dll on windows. Fixes #116 --- src/grt/grt-vpi.ads | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/grt/grt-vpi.ads') 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 * * * * * * * * * * * * * * * * * * * * * * * -- cgit v1.2.3