From 3086757966ec3b06af7ac1fcd9914ebbc6459c4c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 14 Oct 2022 06:44:36 +0200
Subject: synth-vhdl_expr: support alias in indexed names

---
 src/synth/synth-vhdl_expr.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3