diff options
Diffstat (limited to 'src/vhdl/vhdl-canon.adb')
-rw-r--r-- | src/vhdl/vhdl-canon.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index c8e71807e..d5d65a157 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -2296,6 +2296,11 @@ package body Vhdl.Canon is if Canon_Flag_Concurrent_Stmts then Stmt := Canon_Concurrent_Procedure_Call (Stmt); + if Canon_Flag_Add_Suspend_State + and then Get_Kind (Stmt) = Iir_Kind_Process_Statement + then + Canon_Add_Suspend_State (Stmt); + end if; end if; when Iir_Kind_Sensitized_Process_Statement |