diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-02 19:44:37 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-02 19:45:48 +0200 |
| commit | 2fc3356ae0d34dae87eb22c94f4b5eaa1873695b (patch) | |
| tree | a0d3f99840b71a8a60951a2a3890bf0babdcb488 /src/grt/ghdl_main.adb | |
| parent | 013c41bf28a636e32d7b62e89293f4ff172a5491 (diff) | |
| download | ghdl-2fc3356ae0d34dae87eb22c94f4b5eaa1873695b.tar.gz ghdl-2fc3356ae0d34dae87eb22c94f4b5eaa1873695b.tar.bz2 ghdl-2fc3356ae0d34dae87eb22c94f4b5eaa1873695b.zip | |
grt: add code to support systemc co-simulation.
Diffstat (limited to 'src/grt/ghdl_main.adb')
| -rw-r--r-- | src/grt/ghdl_main.adb | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/src/grt/ghdl_main.adb b/src/grt/ghdl_main.adb index 86f11aa5b..4311e603a 100644 --- a/src/grt/ghdl_main.adb +++ b/src/grt/ghdl_main.adb @@ -44,18 +44,10 @@ is function To_Argv_Type is new Ada.Unchecked_Conversion (Source => System.Address, Target => Grt.Options.Argv_Type); - Default_Progname : constant String := "ghdl_design" & NUL; + My_Argv : Grt.Options.Argv_Type := To_Argv_Type (Argv); begin - -- Set program name. - if Argc > 0 then - Grt.Options.Progname := To_Argv_Type (Argv)(0); - else - Grt.Options.Progname := To_Ghdl_C_String (Default_Progname'Address); - end if; - Grt.Options.Argc := Argc; - Grt.Options.Argv := To_Argv_Type (Argv); - Grt_Init; + Grt.Main.Run_Options (My_Argv (0), Argc, My_Argv); Grt.Main.Run; return Grt.Errors.Exit_Status; end Ghdl_Main; |