diff options
Diffstat (limited to 'src/grt')
-rw-r--r-- | src/grt/grt-fst.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/grt/grt-fst.adb b/src/grt/grt-fst.adb index e2c7d2307..e05b8aef6 100644 --- a/src/grt/grt-fst.adb +++ b/src/grt/grt-fst.adb @@ -38,6 +38,7 @@ -- + Integer signals aren't displayed correctly but only their lowest bit is -- shown. +with Ada.Unchecked_Deallocation; with Interfaces; use Interfaces; with Interfaces.C; with Grt.Types; use Grt.Types; @@ -54,7 +55,7 @@ with Grt.Rtis_Types; use Grt.Rtis_Types; with Grt.To_Strings; with Grt.Wave_Opt; use Grt.Wave_Opt; with Grt.Wave_Opt.Design; use Grt.Wave_Opt.Design; -with Ada.Unchecked_Deallocation; +with Grt.Options; pragma Elaborate_All (Grt.Table); package body Grt.Fst is @@ -113,7 +114,7 @@ package body Grt.Fst is fstWriterSetFileType (Context, FST_FT_VHDL); fstWriterSetPackType (Context, FST_WR_PT_LZ4); - fstWriterSetTimescale (Context, -15); -- fs + fstWriterSetTimescale (Context, -3 * Options.Time_Resolution_Scale); fstWriterSetVersion (Context, To_Ghdl_C_String (Version'Address)); fstWriterSetRepackOnClose (Context, 1); fstWriterSetParallelMode (Context, 0); |