Pass time-resolution to grt.

Use time-resolution for Put_Time.
Use time-resolution for --stop-time (Parse_Time).
Use time-resolution as VpiTimePrecision and for vcd.
TODO: ghw (but needs to update ghwlib and gtkwave)

Fix #672

1 files changed, 7 insertions, 6 deletions

diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb
index b2cff0411..d612095f7 100644
--- a/src/ghdldrv/ghdlrun.adb
+++ b/src/ghdldrv/ghdlrun.adb
@@ -110,10 +110,6 @@ package body Ghdlrun is
       --  The design is always analyzed in whole.
       Flags.Flag_Whole_Analyze := True;
 
-      Ortho_Jit.Init;
-
-      Translation.Initialize;
-
       case Elab_Mode is
          when Elab_Static =>
             Canon.Canon_Flag_Add_Labels := True;
@@ -159,8 +155,6 @@ package body Ghdlrun is
                   when 'u' => Put ("us");
                   when 'm' => Put ("ms");
                   when 's' => Put ("sec");
-                  when 'M' => Put ("min");
-                  when 'h' => Put ("hr");
                   when others => Put ("??");
                end case;
                New_Line;
@@ -169,6 +163,13 @@ package body Ghdlrun is
       end if;
       Std_Package.Set_Time_Resolution (Time_Resolution);
 
+      --  Overwrite time resolution in flag string.
+      Flags.Flag_String (5) := Time_Resolution;
+
+      Ortho_Jit.Init;
+
+      Translation.Initialize;
+
       case Elab_Mode is
          when Elab_Static =>
             raise Program_Error;