diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-05-20 06:23:44 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-05-20 06:23:44 +0200 |
commit | 22d6f529f6bc502e4a547b5dfe90091caa8bb243 (patch) | |
tree | 0b719f8883a7fa08f68cf213723f7a43223ea024 /src | |
parent | f8f24837237c8705c21b4b46c9f8474b50786f95 (diff) | |
download | ghdl-22d6f529f6bc502e4a547b5dfe90091caa8bb243.tar.gz ghdl-22d6f529f6bc502e4a547b5dfe90091caa8bb243.tar.bz2 ghdl-22d6f529f6bc502e4a547b5dfe90091caa8bb243.zip |
vhdl-canon: remove unused canon_flag_inertial_associations
Diffstat (limited to 'src')
-rw-r--r-- | src/ghdldrv/ghdlprint.adb | 1 | ||||
-rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 4 | ||||
-rw-r--r-- | src/vhdl/vhdl-canon.ads | 4 |
3 files changed, 0 insertions, 9 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index 8f59bbf65..d3aa203f4 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -1110,7 +1110,6 @@ 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 aff353bdb..bcda44ada 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -275,10 +275,6 @@ 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; - if Ghdlcomp.Init_Verilog_Options /= null then Ghdlcomp.Init_Verilog_Options.all (False); end if; diff --git a/src/vhdl/vhdl-canon.ads b/src/vhdl/vhdl-canon.ads index 3c47a3cae..d8cb082ef 100644 --- a/src/vhdl/vhdl-canon.ads +++ b/src/vhdl/vhdl-canon.ads @@ -32,10 +32,6 @@ 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; |