diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-05-09 22:01:45 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-05-09 22:01:45 +0200 |
commit | 69bbb91b44a1677fd1a0e5accce91f756b06727a (patch) | |
tree | b363e3110c984841c09f8d17bc901f0dda8f25f6 /src/flags.adb | |
parent | 2ef5d28d91f0ec650f2c1fdd10581847375b2bae (diff) | |
download | ghdl-69bbb91b44a1677fd1a0e5accce91f756b06727a.tar.gz ghdl-69bbb91b44a1677fd1a0e5accce91f756b06727a.tar.bz2 ghdl-69bbb91b44a1677fd1a0e5accce91f756b06727a.zip |
Rename Get_Location_Str to Image.
Diffstat (limited to 'src/flags.adb')
-rw-r--r-- | src/flags.adb | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/src/flags.adb b/src/flags.adb index fc00368a5..4bd150124 100644 --- a/src/flags.adb +++ b/src/flags.adb @@ -40,14 +40,17 @@ package body Flags is else Flag_String (4) := 't'; end if; - if not Flag_Time_64 and Vhdl_Std = Vhdl_87 then + + if Flag_Time_64 then + -- Time_Resolution is always fs. + Flag_String (5) := '-'; + elsif Vhdl_Std = Vhdl_87 then + -- Time_Resolution is fixed in vhdl87, as time expressions are + -- locally static. Flag_String (5) := Time_Resolution; else - if Flag_Time_64 then - Flag_String (5) := '-'; - else - Flag_String (5) := '?'; - end if; + -- Time_Resolution can be changed at simulation time. + Flag_String (5) := '?'; end if; end Create_Flag_String; end Flags; |