From 5bc69198283d48faa67eaaa0430144023f2ad176 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 8 Jan 2020 20:35:40 +0100 Subject: synth: simplify support of inertial associations. --- src/ghdldrv/ghdlprint.adb | 1 + src/ghdldrv/ghdlsynth.adb | 4 ++++ 2 files changed, 5 insertions(+) (limited to 'src/ghdldrv') 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; -- cgit v1.2.3