From 1c5a4c9b3cbf399cb73f95ae32285a98e7030bd8 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 21 Jun 2017 04:50:14 +0200 Subject: translate: factorize code. --- src/vhdl/translate/trans-chap3.adb | 6 ++---- src/vhdl/translate/trans-chap6.adb | 3 +-- 2 files changed, 3 insertions(+), 6 deletions(-) (limited to 'src/vhdl') diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index d4091326b..34ffda82f 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1359,12 +1359,10 @@ package body Trans.Chap3 is if Is_Unbounded_Type (Info) then Base2 := Create_Temp (Info, Kind); New_Assign_Stmt - (New_Selected_Element (M2Lv (Base2), - Info.B.Bounds_Field (Kind)), + (M2Lp (Get_Array_Bounds (Base2)), New_Obj_Value (Info.C (Kind).Builder_Bound_Param)); New_Assign_Stmt - (New_Selected_Element (M2Lv (Base2), - Info.B.Base_Field (Kind)), + (M2Lp (Get_Composite_Base (Base2)), New_Obj_Value (Info.C (Kind).Builder_Base_Param)); else Base2 := Dp2M (Base, Info, Kind); diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index 3475ddd14..b06c010e5 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -841,8 +841,7 @@ package body Trans.Chap6 is -- Result is a fat pointer, create it and set bounds. Fat_Res := Create_Temp (El_Tinfo, Kind); New_Assign_Stmt - (New_Selected_Element (M2Lv (Fat_Res), - El_Tinfo.B.Bounds_Field (Kind)), + (M2Lp (Chap3.Get_Array_Bounds (Fat_Res)), New_Address (New_Selected_Element (M2Lv (Chap3.Get_Array_Bounds (Stable_Prefix)), -- cgit v1.2.3