From 1bf8aa85f2adbfb7d56a0aea66f52615889bb7bc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 8 Jun 2021 06:22:45 +0200
Subject: grt-vpi: add more traces for vpi_register_systf

---
 src/grt/grt-vpi.adb |  8 ++++----
 src/grt/grt-vpi.ads | 16 +++++++++++++++-
 2 files changed, 19 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb
index df5d1e639..8580478c9 100644
--- a/src/grt/grt-vpi.adb
+++ b/src/grt/grt-vpi.adb
@@ -1832,12 +1832,12 @@ package body Grt.Vpi is
       return 0;
    end vpi_mcd_open;
 
-   function vpi_register_systf (aSs: System.Address) return vpiHandle
-   is
-      pragma Unreferenced (aSs);
+   function vpi_register_systf (Data : p_vpi_systf_data) return vpiHandle is
    begin
       if Flag_Trace then
-         Trace_Start ("vpi_register_systf");
+         Trace_Start ("vpi_register_systf(");
+         Trace (Data.tfname);
+         Trace (")");
          Trace_Newline;
       end if;
       return null;
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)
-- 
cgit v1.2.3