From 3a3d3cdb7ffcc2a13a8491edd9a00768e5018ea0 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 2 Jan 2017 05:05:35 +0100 Subject: translate: WIP for unbounded records. --- src/vhdl/translate/trans-rtis.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/vhdl/translate/trans-rtis.adb') 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 -- cgit v1.2.3