From 2fc3356ae0d34dae87eb22c94f4b5eaa1873695b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 2 Apr 2020 19:44:37 +0200
Subject: grt: add code to support systemc co-simulation.

---
 src/grt/ghdl_main.adb | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

(limited to 'src/grt/ghdl_main.adb')

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;
-- 
cgit v1.2.3