From a29a52833f5d8d3281b56d0ec4540c5ea272a560 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 6 Jan 2019 16:55:37 +0100
Subject: simul: fix handling of time resolution.

---
 src/ghdldrv/ghdlsimul.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index e0a5ce649..2e304d7ce 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -141,6 +141,9 @@ package body Ghdlsimul is
       Grt.Options.Progname := Grt.Types.To_Ghdl_C_String (Argv0.all'Address);
       Grt.Errors.Set_Error_Stream (Grt.Stdio.stdout);
 
+      Grtlink.Flag_String := Flags.Flag_String;
+      Grt.Options.Set_Time_Resolution;
+
       for I in Args'Range loop
          Arg := Args (I);
          if Arg.all = "--disp-tree" then
@@ -187,8 +190,6 @@ package body Ghdlsimul is
          return;
       end if;
 
-      Grtlink.Flag_String := Flags.Flag_String;
-
       Simul.Simulation.Main.Simulation_Entity (Top_Conf);
 
       Set_Exit_Status (Exit_Status (Grt.Errors.Exit_Status));
-- 
cgit v1.2.3