From 1421145c299fbfa272b58f3a82f0142793fab3b1 Mon Sep 17 00:00:00 2001
From: umarcor <38422348+umarcor@users.noreply.github.com>
Date: Sun, 12 Apr 2020 10:29:56 +0200
Subject: grt: handle argc=0 and argv/=null in ghdl_main (#1206) (#1215)

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

(limited to 'src/grt')

diff --git a/src/grt/ghdl_main.adb b/src/grt/ghdl_main.adb
index 3107da23c..9a4710b4c 100644
--- a/src/grt/ghdl_main.adb
+++ b/src/grt/ghdl_main.adb
@@ -44,19 +44,17 @@ is
    function To_Argv_Type is new Ada.Unchecked_Conversion
      (Source => System.Address, Target => Grt.Options.Argv_Type);
 
-   My_Argv : Grt.Options.Argv_Type := To_Argv_Type (Argv);
-   Progname : Ghdl_C_String;
+   Args : Grt.Options.Argv_Type := To_Argv_Type (Argv);
+   Progname : Ghdl_C_String := null;
 begin
    --  Ada elaboration.
    Grt_Init;
 
    --  Set the options.
-   if Argc > 0 then
-      Progname := My_Argv (0);
-   else
-      Progname := null;
+   if not (Argc = 0 and Args = null) then
+     Progname := Args (0);
    end if;
-   Grt.Main.Run_Options (Progname, Argc, My_Argv);
+   Grt.Main.Run_Options (Progname, Argc, Args);
 
    --  Initialize, elaborate and simulate.
    Grt.Main.Run;
-- 
cgit v1.2.3