translate: minor changes.

3 files changed, 2 insertions, 4 deletions

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));