diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-01-08 20:35:40 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-01-09 21:13:51 +0100 |
| commit | 5bc69198283d48faa67eaaa0430144023f2ad176 (patch) | |
| tree | d46120c15447ea02c6f3372487a9fbce1b2af16d /src/ghdldrv | |
| parent | 91e5fab3e69fdcdbc04c3280c3ab9f3c8c8d5c51 (diff) | |
| download | ghdl-5bc69198283d48faa67eaaa0430144023f2ad176.tar.gz ghdl-5bc69198283d48faa67eaaa0430144023f2ad176.tar.bz2 ghdl-5bc69198283d48faa67eaaa0430144023f2ad176.zip | |
synth: simplify support of inertial associations.
Diffstat (limited to 'src/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 1 | ||||
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index 8510adabe..b02c93fdd 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -1059,6 +1059,7 @@ package body Ghdlprint is Vhdl.Canon.Canon_Flag_Configurations := False; Vhdl.Canon.Canon_Flag_Specification_Lists := False; Vhdl.Canon.Canon_Flag_Associations := False; + Vhdl.Canon.Canon_Flag_Inertial_Associations := False; -- Parse all files. for I in Args'Range loop diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index c87405ca3..cc10d0daf 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -176,6 +176,10 @@ package body Ghdlsynth is -- Do not canon concurrent statements. Vhdl.Canon.Canon_Flag_Concurrent_Stmts := False; + + -- Do not create concurrent signal assignment for inertial + -- association. They are handled directly. + Vhdl.Canon.Canon_Flag_Inertial_Associations := False; end if; Flags.Flag_Elaborate_With_Outdated := E_Opt >= Args'First; |