From 3808a155fd56a5c0162b1c1c4e6e467a233cb0d5 Mon Sep 17 00:00:00 2001 From: Kaleb Barrett Date: Thu, 16 Jul 2020 21:37:33 -0500 Subject: Return correct verison number in vpi_get_vlog_info --- src/grt/grt-vpi.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/grt') diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb index afcc2692f..e7cdf9257 100644 --- a/src/grt/grt-vpi.adb +++ b/src/grt/grt-vpi.adb @@ -55,6 +55,7 @@ with Grt.Rtis_Types; with Grt.Std_Logic_1164; use Grt.Std_Logic_1164; with Grt.Callbacks; use Grt.Callbacks; with Grt.Vstrings; use Grt.Vstrings; +with Version; package body Grt.Vpi is -- The VPI interface requires libdl (dlopen, dlsym) to be linked in. @@ -65,7 +66,8 @@ package body Grt.Vpi is --errNoString: constant String := "grt-vcd.adb: no string" & NUL; Product : constant String := "GHDL" & NUL; - Version : constant String := "0.1" & NUL; + GhdlVersion : constant String := + Version.Ghdl_Ver & " " & Version.Ghdl_Release & NUL; -- If true, emit traces Flag_Trace : Boolean := False; @@ -1568,7 +1570,7 @@ package body Grt.Vpi is info.all := (Argc => 0, Argv => Null_Address, Product => To_Ghdl_C_String (Product'Address), - Version => To_Ghdl_C_String (Version'Address)); + Version => To_Ghdl_C_String (GhdlVersion'Address)); return 0; end vpi_get_vlog_info; -- cgit v1.2.3