diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-01-28 20:12:41 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-01-28 20:13:20 +0100 |
commit | 8cb293a92214fa4fb46b15b0af0d1b6a0dae3546 (patch) | |
tree | b41e490b6f0bc78621b300618c1e09b3139adea9 /src/ghdldrv | |
parent | 0379cdbe8f29230c20e9ccd3124da75469eaf38e (diff) | |
download | ghdl-8cb293a92214fa4fb46b15b0af0d1b6a0dae3546.tar.gz ghdl-8cb293a92214fa4fb46b15b0af0d1b6a0dae3546.tar.bz2 ghdl-8cb293a92214fa4fb46b15b0af0d1b6a0dae3546.zip |
vhdl/trans: support suspend states
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlprint.adb | 1 | ||||
-rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index a95e456cd..53f6f07be 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -1123,6 +1123,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_Add_Suspend_State := False; Flags.Flag_Gather_Comments := Cmd.Flag_Comments; diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index 44d553150..6e2871afa 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -279,6 +279,7 @@ package body Ghdlsynth is -- Do not canon concurrent statements. Vhdl.Canon.Canon_Flag_Concurrent_Stmts := False; + Vhdl.Canon.Canon_Flag_Add_Suspend_State := False; if Ghdlcomp.Init_Verilog_Options /= null then Ghdlcomp.Init_Verilog_Options.all (False); |