From a5f991845596105b0476b219822f7ad8c7c857c8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 3 May 2020 19:30:49 +0200
Subject: synth-stmts: unshare assigned value.

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

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 0ebdf073f..5bc66b9e7 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -456,7 +456,8 @@ package body Synth.Stmts is
                  and then V.Typ.Sz = Target.Obj.Typ.Sz
                then
                   pragma Assert (Target.Off = (0, 0));
-                  Phi_Assign_Static (Target.Obj.Val.W, Get_Memtyp (V));
+                  Phi_Assign_Static
+                    (Target.Obj.Val.W, Unshare (Get_Memtyp (V)));
                else
                   if V.Typ.W = 0 then
                      --  Forget about null wires.
@@ -2275,7 +2276,7 @@ package body Synth.Stmts is
          end if;
       end if;
 
-      --  Execution is suspended for the current loop.
+      --  Execution is suspended for the current sequence of statements.
       Phi_Assign_Static (C.W_En, Bit0);
 
       Lc := C.Cur_Loop;
-- 
cgit v1.2.3