diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-05-24 08:02:19 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-05-24 08:02:19 +0200 |
commit | 66429d454f4316155f5b94292e0e9a0c65890d01 (patch) | |
tree | f0d438a199ba67d0534cba37ed7fbd291e06e5cb /src/synth/elab-vhdl_values-debug.adb | |
parent | ca9c0eaaf5d2c4fc1c6ff6883e542593d1c93a58 (diff) | |
download | ghdl-66429d454f4316155f5b94292e0e9a0c65890d01.tar.gz ghdl-66429d454f4316155f5b94292e0e9a0c65890d01.tar.bz2 ghdl-66429d454f4316155f5b94292e0e9a0c65890d01.zip |
elab-vhdl_objtypes: use value_offsets for record elements offset.
Diffstat (limited to 'src/synth/elab-vhdl_values-debug.adb')
-rw-r--r-- | src/synth/elab-vhdl_values-debug.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/synth/elab-vhdl_values-debug.adb b/src/synth/elab-vhdl_values-debug.adb index 227764734..60d29dc1a 100644 --- a/src/synth/elab-vhdl_values-debug.adb +++ b/src/synth/elab-vhdl_values-debug.adb @@ -98,10 +98,10 @@ package body Elab.Vhdl_Values.Debug is if I /= 1 then Put (", "); end if; - Put ("[boff="); - Put_Uns32 (T.Rec.E (I).Boff); + Put ("[noff="); + Put_Uns32 (T.Rec.E (I).Offs.Net_Off); Put (", moff="); - Put_Uns32 (Uns32 (T.Rec.E (I).Moff)); + Put_Uns32 (Uns32 (T.Rec.E (I).Offs.Mem_Off)); Put ("] "); Debug_Typ1 (T.Rec.E (I).Typ); end loop; @@ -254,7 +254,7 @@ package body Elab.Vhdl_Values.Debug is Put (", "); end if; Debug_Memtyp - ((M.Typ.Rec.E (I).Typ, M.Mem + M.Typ.Rec.E (I).Moff)); + ((M.Typ.Rec.E (I).Typ, M.Mem + M.Typ.Rec.E (I).Offs.Mem_Off)); end loop; Put (")"); when Type_Discrete => |