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/vhdl | |
| 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/vhdl')
| -rw-r--r-- | src/vhdl/vhdl-canon.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/vhdl-canon.ads | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index e06b795ab..3cd7bf736 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -2989,7 +2989,7 @@ package body Vhdl.Canon is Canon_Expression (Get_Expression (Decl)); end if; -- Create a signal assignment. - if Canon_Flag_Associations then + if Canon_Flag_Inertial_Associations then declare Parent : constant Node := Get_Parent (Decl); Asgn : Iir; diff --git a/src/vhdl/vhdl-canon.ads b/src/vhdl/vhdl-canon.ads index 477928bcb..50099ba3c 100644 --- a/src/vhdl/vhdl-canon.ads +++ b/src/vhdl/vhdl-canon.ads @@ -34,6 +34,10 @@ package Vhdl.Canon is -- association with a non globally expression). Canon_Flag_Associations : Boolean := True; + -- If true, create a concurrent signal assignment for internal + -- associations. + Canon_Flag_Inertial_Associations : Boolean := True; + -- If true, canon lists in specifications. Canon_Flag_Specification_Lists : Boolean := True; |