From 20072e856f8f4daea01f434bf7fd3c9468d987b2 Mon Sep 17 00:00:00 2001
From: Marlon James <marlon.james@garmin.com>
Date: Fri, 13 Nov 2020 10:07:56 -0800
Subject: Add argc and argv to vpi_get_vlog_info()

---
 src/grt/grt-vpi.adb | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb
index df2788631..89cccf94e 100644
--- a/src/grt/grt-vpi.adb
+++ b/src/grt/grt-vpi.adb
@@ -1566,14 +1566,16 @@ package body Grt.Vpi is
 
    -- int vpi_get_vlog_info(p_vpi_vlog_info vlog_info_p)
    function vpi_get_vlog_info (info : p_vpi_vlog_info) return integer is
+      function To_Address is new Ada.Unchecked_Conversion
+         (Source => Grt.Options.Argv_Type, Target => System.Address);
    begin
       if Flag_Trace then
          Trace_Start ("vpi_get_vlog_info");
          Trace_Newline;
       end if;
 
-      info.all := (Argc => 0,
-                   Argv => Null_Address,
+      info.all := (Argc => Options.Argc,
+                   Argv => To_Address(Options.Argv),
                    Product => To_Ghdl_C_String (Product'Address),
                    Version => To_Ghdl_C_String (GhdlVersion'Address));
       return 1;
-- 
cgit v1.2.3