diff options
Diffstat (limited to 'src/grt/grt-vcd.adb')
-rw-r--r-- | src/grt/grt-vcd.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/grt/grt-vcd.adb b/src/grt/grt-vcd.adb index 180bfeeb9..9050a26a4 100644 --- a/src/grt/grt-vcd.adb +++ b/src/grt/grt-vcd.adb @@ -360,8 +360,9 @@ package body Grt.Vcd is Get_Base_Type (Arr_Rti.Indexes (0)); begin Kind := Rti_To_Vcd_Kind (Arr_Rti); - Bounds := Loc_To_Addr (St.Common.Depth, St.Bounds, + Bounds := Loc_To_Addr (St.Common.Depth, St.Layout, Avhpi_Get_Context (Sig)); + Bounds := Array_Layout_To_Bounds (Bounds); Extract_Range (Bounds, Idx_Rti, Irange); end; when Ghdl_Rtik_Type_Array => |