aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2022-10-14 06:44:36 +0200
committerTristan Gingold <tgingold@free.fr>2022-10-14 06:44:36 +0200
commit3086757966ec3b06af7ac1fcd9914ebbc6459c4c (patch)
treec5d3b47ad8125e22cd1bc39a15cfc07fbdedb714 /src/synth
parent8e6943c87ed9bfbc199bd4a8297bc87d80286b57 (diff)
downloadghdl-3086757966ec3b06af7ac1fcd9914ebbc6459c4c.tar.gz
ghdl-3086757966ec3b06af7ac1fcd9914ebbc6459c4c.tar.bz2
ghdl-3086757966ec3b06af7ac1fcd9914ebbc6459c4c.zip
synth-vhdl_expr: support alias in indexed names
Diffstat (limited to 'src/synth')
-rw-r--r--src/synth/synth-vhdl_expr.adb3
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