From 8cb293a92214fa4fb46b15b0af0d1b6a0dae3546 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 28 Jan 2023 20:12:41 +0100 Subject: vhdl/trans: support suspend states --- src/ghdldrv/ghdlprint.adb | 1 + src/ghdldrv/ghdlsynth.adb | 1 + 2 files changed, 2 insertions(+) (limited to 'src/ghdldrv') 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); -- cgit v1.2.3