From 1803f976121985c6e8e7506c9b959e8d2b5f718c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 19 Oct 2018 05:12:20 +0200 Subject: 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 --- src/ghdldrv/ghdlrun.adb | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'src/ghdldrv/ghdlrun.adb') 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; -- cgit v1.2.3