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_files.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_files.adb')
| -rw-r--r-- | src/synth/elab-vhdl_files.adb | 12 |
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 |