diff options
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index 3d2d2f3f8..1f78a9677 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -2159,7 +2159,8 @@ package body Synth.Vhdl_Expr is Res := Create_Value_Memory (Res_Typ, Current_Pool); Copy_Memory (Res.Val.Mem, - Val.Val.Mem + Val.Typ.Rec.E (Idx + 1).Offs.Mem_Off, + Get_Memory (Val) + + Val.Typ.Rec.E (Idx + 1).Offs.Mem_Off, Res_Typ.Sz); return Res; else |