diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-07 04:56:58 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-07 04:56:58 +0200 |
| commit | d646114db387b69e2fe92a1c68c2c27c35f7dc5f (patch) | |
| tree | effc33716fc1fba6af4f7fc05689a67bc1a58a61 /src/synth/synth-vhdl_stmts.adb | |
| parent | 68a7010349341dfaa8aa7b8b27701bf639ea0857 (diff) | |
| download | ghdl-d646114db387b69e2fe92a1c68c2c27c35f7dc5f.tar.gz ghdl-d646114db387b69e2fe92a1c68c2c27c35f7dc5f.tar.bz2 ghdl-d646114db387b69e2fe92a1c68c2c27c35f7dc5f.zip | |
elab-vhdl_values: factorize code
Diffstat (limited to 'src/synth/synth-vhdl_stmts.adb')
| -rw-r--r-- | src/synth/synth-vhdl_stmts.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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); |