From 1c5a4c9b3cbf399cb73f95ae32285a98e7030bd8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
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(-)
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