From e74bc58708a296f809cf629d6e3ac15def3ada8a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 13 Oct 2022 04:05:58 +0200
Subject: synth: handle alias of access objects.

---
 src/synth/elab-vhdl_values.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/synth/elab-vhdl_values.adb b/src/synth/elab-vhdl_values.adb
index 0dff785a8..391bdf98c 100644
--- a/src/synth/elab-vhdl_values.adb
+++ b/src/synth/elab-vhdl_values.adb
@@ -410,7 +410,7 @@ package body Elab.Vhdl_Values is
    function Read_Access (Vt : Valtyp) return Heap_Index is
    begin
       pragma Assert (Vt.Typ.Kind = Type_Access);
-      return Read_Access (Vt.Val.Mem);
+      return Read_Access (Get_Memory (Vt));
    end Read_Access;
 
    function Create_Value_Discrete (Val : Int64; Vtype : Type_Acc) return Valtyp
-- 
cgit v1.2.3