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;