aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/elab-vhdl_files.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2022-05-24 08:02:19 +0200
committerTristan Gingold <tgingold@free.fr>2022-05-24 08:02:19 +0200
commit66429d454f4316155f5b94292e0e9a0c65890d01 (patch)
treef0d438a199ba67d0534cba37ed7fbd291e06e5cb /src/synth/elab-vhdl_files.adb
parentca9c0eaaf5d2c4fc1c6ff6883e542593d1c93a58 (diff)
downloadghdl-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_files.adb')
-rw-r--r--src/synth/elab-vhdl_files.adb12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/synth/elab-vhdl_files.adb b/src/synth/elab-vhdl_files.adb
index c974a835d..12afedd91 100644
--- a/src/synth/elab-vhdl_files.adb
+++ b/src/synth/elab-vhdl_files.adb
@@ -455,8 +455,8 @@ package body Elab.Vhdl_Files is
when Type_Record =>
for I in Val.Typ.Rec.E'Range loop
File_Read_Value
- (File,
- (Val.Typ.Rec.E (I).Typ, Val.Mem + Val.Typ.Rec.E (I).Moff),
+ (File, (Val.Typ.Rec.E (I).Typ,
+ Val.Mem + Val.Typ.Rec.E (I).Offs.Mem_Off),
Loc);
end loop;
when Type_Unbounded_Record
@@ -509,10 +509,10 @@ package body Elab.Vhdl_Files is
end;
when Type_Record =>
for I in Val.Typ.Rec.E'Range loop
- File_Write_Value
- (File,
- (Val.Typ.Rec.E (I).Typ, Val.Mem + Val.Typ.Rec.E (I).Moff),
- Loc);
+ File_Write_Value (File,
+ (Val.Typ.Rec.E (I).Typ,
+ Val.Mem + Val.Typ.Rec.E (I).Offs.Mem_Off),
+ Loc);
end loop;
when Type_Unbounded_Record
| Type_Unbounded_Array