From ed658a2907c3344b62f66bd0d44769afcef00723 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 28 May 2019 08:00:05 +0200
Subject: vhdl: time resolution is fs for auto in vhdl 87

---
 src/vhdl/vhdl-std_package.adb | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-std_package.adb b/src/vhdl/vhdl-std_package.adb
index db6139622..8012f74e1 100644
--- a/src/vhdl/vhdl-std_package.adb
+++ b/src/vhdl/vhdl-std_package.adb
@@ -1346,6 +1346,12 @@ package body Vhdl.Std_Package is
 
    function Get_Minimal_Time_Resolution return Character is
    begin
+      --  In vhdl87, time units are locally static, so they are evaluated
+      --  during analysis.  The units cannot be changed later.
+      if Vhdl_Std = Vhdl_87 then
+         return 'f';
+      end if;
+
       if Get_Use_Flag (Time_Fs_Unit) then
          return 'f';
       end if;
-- 
cgit v1.2.3