diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-10-13 04:05:58 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-10-13 04:05:58 +0200 |
commit | e74bc58708a296f809cf629d6e3ac15def3ada8a (patch) | |
tree | 4cb1cd570efb138194c2d49606d99a691a0edc9f /src | |
parent | 10a478df597403fc6c5c268cdaa6ea4ee916a5ef (diff) | |
download | ghdl-e74bc58708a296f809cf629d6e3ac15def3ada8a.tar.gz ghdl-e74bc58708a296f809cf629d6e3ac15def3ada8a.tar.bz2 ghdl-e74bc58708a296f809cf629d6e3ac15def3ada8a.zip |
synth: handle alias of access objects.
Diffstat (limited to 'src')
-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 |