From d2c059cef84ee053813a9ade503e31598a9ad607 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 18 Nov 2017 08:42:12 +0100
Subject: canon: handle unaffected in waveform expression.

---
 src/vhdl/canon.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/vhdl')

diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb
index 15295b439..2657bff1e 100644
--- a/src/vhdl/canon.adb
+++ b/src/vhdl/canon.adb
@@ -863,6 +863,11 @@ package body Canon is
    is
       We : Iir_Waveform_Element;
    begin
+      if Get_Kind (Waveform) = Iir_Kind_Unaffected_Waveform then
+         pragma Assert (Get_Chain (Waveform) = Null_Iir);
+         return;
+      end if;
+
       We := Waveform;
       while We /= Null_Iir loop
          Canon_Expression (Get_We_Value (We));
-- 
cgit v1.2.3