diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-01-02 05:05:35 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-01-02 05:14:09 +0100 |
| commit | 3a3d3cdb7ffcc2a13a8491edd9a00768e5018ea0 (patch) | |
| tree | fb652b39edcd3cf8d878c71f4fc5f0b1762a4b46 /src/vhdl/translate/trans-rtis.adb | |
| parent | 0e0c3efd5e7a375329982f293e85c01d254eaac1 (diff) | |
| download | ghdl-3a3d3cdb7ffcc2a13a8491edd9a00768e5018ea0.tar.gz ghdl-3a3d3cdb7ffcc2a13a8491edd9a00768e5018ea0.tar.bz2 ghdl-3a3d3cdb7ffcc2a13a8491edd9a00768e5018ea0.zip | |
translate: WIP for unbounded records.
Diffstat (limited to 'src/vhdl/translate/trans-rtis.adb')
| -rw-r--r-- | src/vhdl/translate/trans-rtis.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-rtis.adb b/src/vhdl/translate/trans-rtis.adb index d28f3bb6e..a155041da 100644 --- a/src/vhdl/translate/trans-rtis.adb +++ b/src/vhdl/translate/trans-rtis.adb @@ -1652,7 +1652,7 @@ package body Trans.Rtis is New_Record_Aggr_El (Aggr, New_Rti_Address (Type_Rti)); for I in Object_Kind_Type loop if Field_Info.Field_Node (I) /= O_Fnode_Null then - Val := New_Offsetof (Info.Ortho_Type (I), + Val := New_Offsetof (Info.B.Base_Type (I), Field_Info.Field_Node (I), Ghdl_Index_Type); else |