From 9d4d4c09883d373f01861f827e793d754aeaa7d7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 26 Dec 2022 09:10:02 +0100
Subject: vhdl-canon: handle unaffected

---
 src/simul/simul-vhdl_simul.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/simul')

diff --git a/src/simul/simul-vhdl_simul.adb b/src/simul/simul-vhdl_simul.adb
index 6e3d62e88..1ec6500d2 100644
--- a/src/simul/simul-vhdl_simul.adb
+++ b/src/simul/simul-vhdl_simul.adb
@@ -944,6 +944,11 @@ package body Simul.Vhdl_Simul is
       Aft : Node;
       Rej : Node;
    begin
+      --  Nothing to assign.
+      if Get_Kind (Waveform) = Iir_Kind_Unaffected_Waveform then
+         return;
+      end if;
+
       Rej := Get_Reject_Time_Expression (Stmt);
       if Rej /= Null_Node then
          raise Internal_Error;
-- 
cgit v1.2.3