From 8d61edaf274ff80d2b185c0af34f30efa73d969a Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 4 Aug 2020 18:44:54 +0200 Subject: translate: minor changes. --- src/vhdl/translate/trans-chap3.adb | 2 +- src/vhdl/translate/trans-chap5.adb | 2 -- src/vhdl/translate/trans-chap9.adb | 2 +- 3 files changed, 2 insertions(+), 4 deletions(-) (limited to 'src/vhdl/translate') diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 8f383a099..0e2474085 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -1140,7 +1140,7 @@ package body Trans.Chap3 is Set_Info (El_Type, Get_Info (Parent_El_Type)); end if; - if Get_Index_Constraint_Flag (Def) then + if Get_Constraint_State (Def) = Fully_Constrained then -- Index constrained. Translate_Bounded_Array_Subtype_Definition (Def, Parent_Type); else diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index 4b1fcfc7e..990392dea 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -708,9 +708,7 @@ package body Trans.Chap5 is if Get_Whole_Association_Flag (Assoc) and then Fbt_Info.Type_Mode in Type_Mode_Unbounded then - Open_Temp; Elab_Unconstrained_Port_Bounds (Formal, Assoc); - Close_Temp; end if; -- Allocate storage of ports. diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index dc59757a9..caec91cfa 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -168,7 +168,7 @@ package body Trans.Chap9 is Mark, Mark2 : Id_Mark_Type; Assoc, Inter : Iir; Num : Iir_Int32; - Has_Conv_Record : Boolean := False; + Has_Conv_Record : Boolean := False; begin Info := Add_Info (Inst, Kind_Block); Push_Identifier_Prefix (Mark, Get_Label (Inst)); -- cgit v1.2.3