diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-06-11 05:49:34 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-06-11 05:49:34 +0200 |
| commit | 2957aa3fac86d615e69a53c23902bd78c808a3ed (patch) | |
| tree | 2c8a665d45b051ba36b67bbc1641d8c76d221e4f /src | |
| parent | d2b3379a27cf86cbff068c42d7848a08343c57b6 (diff) | |
| download | ghdl-2957aa3fac86d615e69a53c23902bd78c808a3ed.tar.gz ghdl-2957aa3fac86d615e69a53c23902bd78c808a3ed.tar.bz2 ghdl-2957aa3fac86d615e69a53c23902bd78c808a3ed.zip | |
grt-fst: padd time resolution. Fix #1365
Diffstat (limited to 'src')
| -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); |