diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-03 19:30:49 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-04 19:04:10 +0200 |
| commit | a5f991845596105b0476b219822f7ad8c7c857c8 (patch) | |
| tree | 6bf9b96dd7f79d10a4895595c542b8d0f435d68e /src/synth/synth-stmts.adb | |
| parent | ff7dc8f280ace0c0c2e307e62fda21f75359f096 (diff) | |
| download | ghdl-a5f991845596105b0476b219822f7ad8c7c857c8.tar.gz ghdl-a5f991845596105b0476b219822f7ad8c7c857c8.tar.bz2 ghdl-a5f991845596105b0476b219822f7ad8c7c857c8.zip | |
synth-stmts: unshare assigned value.
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 5 |
1 files 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; |