diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-canon.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index 96f7e0b11..393b48cca 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -1792,8 +1792,10 @@ package body Vhdl.Canon is begin Stmt := Canon_Wave_Transform (Conc_Stmt, Get_Waveform_Chain (Conc_Stmt), Proc, True); - Set_Waveform_Chain (Conc_Stmt, Null_Iir); - Set_Target (Conc_Stmt, Null_Iir); + if Get_Kind (Stmt) /= Iir_Kind_Null_Statement then + Set_Waveform_Chain (Conc_Stmt, Null_Iir); + Set_Target (Conc_Stmt, Null_Iir); + end if; Set_Parent (Stmt, Parent); Set_Sequential_Statement_Chain (Parent, Stmt); end Canon_Concurrent_Simple_Signal_Assignment; |