aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2020-06-11 05:49:34 +0200
committerTristan Gingold <tgingold@free.fr>2020-06-11 05:49:34 +0200
commit2957aa3fac86d615e69a53c23902bd78c808a3ed (patch)
tree2c8a665d45b051ba36b67bbc1641d8c76d221e4f /src
parentd2b3379a27cf86cbff068c42d7848a08343c57b6 (diff)
downloadghdl-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.adb5
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);