diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-10-19 05:12:20 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-10-21 08:03:38 +0200 |
commit | 1803f976121985c6e8e7506c9b959e8d2b5f718c (patch) | |
tree | c590acb9a797c28b01adc40cf5b00b5b017c799c /src/ghdldrv/ghdlrun.adb | |
parent | f910e02797a83d0c5748768d20359a3d95569cc7 (diff) | |
download | ghdl-1803f976121985c6e8e7506c9b959e8d2b5f718c.tar.gz ghdl-1803f976121985c6e8e7506c9b959e8d2b5f718c.tar.bz2 ghdl-1803f976121985c6e8e7506c9b959e8d2b5f718c.zip |
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
Diffstat (limited to 'src/ghdldrv/ghdlrun.adb')
-rw-r--r-- | src/ghdldrv/ghdlrun.adb | 13 |
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; |