diff options
| author | Marlon James <marlon.james@garmin.com> | 2020-11-13 10:07:56 -0800 |
|---|---|---|
| committer | tgingold <tgingold@users.noreply.github.com> | 2020-11-19 17:37:35 +0100 |
| commit | 20072e856f8f4daea01f434bf7fd3c9468d987b2 (patch) | |
| tree | 724f15dc2d04717e7795d3462e0db4aaae7241b2 /src/grt | |
| parent | f4e2f40d86eac1ed0edca495a5eb2a954acc9ec7 (diff) | |
| download | ghdl-20072e856f8f4daea01f434bf7fd3c9468d987b2.tar.gz ghdl-20072e856f8f4daea01f434bf7fd3c9468d987b2.tar.bz2 ghdl-20072e856f8f4daea01f434bf7fd3c9468d987b2.zip | |
Add argc and argv to 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 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; |