From 2957aa3fac86d615e69a53c23902bd78c808a3ed Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 11 Jun 2020 05:49:34 +0200
Subject: grt-fst: padd time resolution.  Fix #1365

---
 src/grt/grt-fst.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/grt/grt-fst.adb')

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);
-- 
cgit v1.2.3