From 316236ea3aef0eadc9bb7cd7c8b5b811ede87b0f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 4 Jan 2018 12:02:17 +0100 Subject: trans-chap3: remove useless element translation. --- src/vhdl/translate/trans-chap3.adb | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src') diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 14e4955fa..63d32f3f9 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -786,12 +786,8 @@ package body Trans.Chap3 is Info : Type_Info_Acc) is El_Type : constant Iir := Get_Element_Subtype (Def); - El_Tinfo : Type_Info_Acc; + El_Tinfo : constant Type_Info_Acc := Get_Info (El_Type); begin - -- Be sure the element type is translated. - Translate_Type_Definition (El_Type, True); - El_Tinfo := Get_Info (El_Type); - if Is_Complex_Type (El_Tinfo) then if El_Tinfo.Type_Mode = Type_Mode_Array then Info.B.Base_Type := El_Tinfo.B.Base_Ptr_Type; -- cgit v1.2.3