diff options
| -rw-r--r-- | src/vhdl/vhdl-prints.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb index cfec3b70d..f1704476a 100644 --- a/src/vhdl/vhdl-prints.adb +++ b/src/vhdl/vhdl-prints.adb @@ -2302,15 +2302,16 @@ package body Vhdl.Prints is Expr : Iir; begin Cond_Wf := Chain; - while Cond_Wf /= Null_Iir loop + loop Disp_Waveform (Ctxt, Get_Waveform_Chain (Cond_Wf)); Expr := Get_Condition (Cond_Wf); if Expr /= Null_Iir then Disp_Token (Ctxt, Tok_When); Print (Ctxt, Expr); - Disp_Token (Ctxt, Tok_Else); end if; Cond_Wf := Get_Chain (Cond_Wf); + exit when Cond_Wf = Null_Iir; + Disp_Token (Ctxt, Tok_Else); end loop; end Disp_Conditional_Waveform; |