diff options
| -rw-r--r-- | src/synth/elab-vhdl_values.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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 |