From 85c253db43b2bf0c24e388ce2d992199c7b2893f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 2 Jun 2019 07:49:04 +0200
Subject: vhdl-prints: fix extra 'else' in disp_conditional_waveform.

---
 src/vhdl/vhdl-prints.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/vhdl')

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;
 
-- 
cgit v1.2.3