From d646114db387b69e2fe92a1c68c2c27c35f7dc5f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 7 Sep 2022 04:56:58 +0200 Subject: elab-vhdl_values: factorize code --- src/synth/synth-vhdl_stmts.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/synth/synth-vhdl_stmts.adb') diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index f2bf8db0d..5b958681d 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -255,7 +255,7 @@ package body Synth.Vhdl_Stmts is if Dest_Off /= (0, 0) and then Dest_Dyn.Voff /= No_Net then raise Internal_Error; end if; - Dest_Base := Create_Value_Memory + Dest_Base := Create_Value_Memtyp (Elab.Vhdl_Heap.Synth_Dereference (Read_Access (Dest_Base))); Dest_Typ := Dest_Base.Typ; @@ -1841,7 +1841,7 @@ package body Synth.Vhdl_Stmts is if Info.Obj.Val.Kind = Value_Memory then -- But for memory value, do not copy the content, as it is -- a reference. - Obj := Create_Value_Memory_Pool + Obj := Create_Value_Memory (Get_Memtyp (Info.Obj), Instance_Pool); else Obj := Unshare (Info.Obj, Instance_Pool); -- cgit v1.2.3