diff options
| author | Kaleb Barrett <dev.ktbarrett@gmail.com> | 2020-07-16 21:37:33 -0500 |
|---|---|---|
| committer | tgingold <tgingold@users.noreply.github.com> | 2020-07-19 08:35:40 +0200 |
| commit | 3808a155fd56a5c0162b1c1c4e6e467a233cb0d5 (patch) | |
| tree | a3c35ec99a551d3dc0e1d93d92c53cedec7ef882 /src/grt | |
| parent | a889a32c0eb359bbb8b3d941226b1129106e5510 (diff) | |
| download | ghdl-3808a155fd56a5c0162b1c1c4e6e467a233cb0d5.tar.gz ghdl-3808a155fd56a5c0162b1c1c4e6e467a233cb0d5.tar.bz2 ghdl-3808a155fd56a5c0162b1c1c4e6e467a233cb0d5.zip | |
Return correct verison number in vpi_get_vlog_info
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/grt-vpi.adb | 6 |
1 files changed, 4 insertions, 2 deletions
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; |