diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-10-14 06:44:36 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-10-14 06:44:36 +0200 |
| commit | 3086757966ec3b06af7ac1fcd9914ebbc6459c4c (patch) | |
| tree | c5d3b47ad8125e22cd1bc39a15cfc07fbdedb714 | |
| parent | 8e6943c87ed9bfbc199bd4a8297bc87d80286b57 (diff) | |
| download | ghdl-3086757966ec3b06af7ac1fcd9914ebbc6459c4c.tar.gz ghdl-3086757966ec3b06af7ac1fcd9914ebbc6459c4c.tar.bz2 ghdl-3086757966ec3b06af7ac1fcd9914ebbc6459c4c.zip | |
synth-vhdl_expr: support alias in indexed names
| -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 |