diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-01-06 16:55:37 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-01-06 19:42:13 +0100 |
commit | a29a52833f5d8d3281b56d0ec4540c5ea272a560 (patch) | |
tree | ee6b3bfa3f30f3789b4e3367e6a85bd7105206ed /src/ghdldrv/ghdlsimul.adb | |
parent | d15e01d94c1d6561a38e3780f9199a55611fde7f (diff) | |
download | ghdl-a29a52833f5d8d3281b56d0ec4540c5ea272a560.tar.gz ghdl-a29a52833f5d8d3281b56d0ec4540c5ea272a560.tar.bz2 ghdl-a29a52833f5d8d3281b56d0ec4540c5ea272a560.zip |
simul: fix handling of time resolution.
Diffstat (limited to 'src/ghdldrv/ghdlsimul.adb')
-rw-r--r-- | src/ghdldrv/ghdlsimul.adb | 5 |
1 files changed, 3 insertions, 2 deletions
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)); |