1 files changed, 72 insertions, 68 deletions
diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
index 261be0f4e..a7b726b79 100644
--- a/src/vhdl/vhdl-utils.adb
+++ b/src/vhdl/vhdl-utils.adb
@@ -292,74 +292,78 @@ package body Vhdl.Utils is
             when Iir_Kind_Attribute_Name =>
                return Get_Named_Entity (Adecl);
             when Iir_Kind_Error
-              | Iir_Kind_Unused
-              | Iir_Kind_Parenthesis_Name
-              | Iir_Kind_Conditional_Expression
-              | Iir_Kind_Character_Literal
-              | Iir_Kind_Operator_Symbol
-              | Iir_Kind_Design_File
-              | Iir_Kind_Design_Unit
-              | Iir_Kind_Library_Clause
-              | Iir_Kind_Use_Clause
-              | Iir_Kind_Context_Reference
-              | Iir_Kind_Library_Declaration
-              | Iir_Kinds_Library_Unit
-              | Iir_Kind_Component_Declaration
-              | Iir_Kind_Function_Declaration
-              | Iir_Kind_Procedure_Declaration
-              | Iir_Kind_Attribute_Declaration
-              | Iir_Kind_Nature_Declaration
-              | Iir_Kind_Subnature_Declaration
-              | Iir_Kinds_Type_Declaration
-              | Iir_Kinds_Type_And_Subtype_Definition
-              | Iir_Kinds_Nature_Definition
-              | Iir_Kinds_Subnature_Definition
-              | Iir_Kind_Wildcard_Type_Definition
-              | Iir_Kind_Subtype_Definition
-              | Iir_Kind_Group_Template_Declaration
-              | Iir_Kind_Group_Declaration
-              | Iir_Kind_Anonymous_Signal_Declaration
-              | Iir_Kind_Signal_Attribute_Declaration
-              | Iir_Kind_Unaffected_Waveform
-              | Iir_Kind_Waveform_Element
-              | Iir_Kind_Conditional_Waveform
-              | Iir_Kind_Binding_Indication
-              | Iir_Kind_Component_Configuration
-              | Iir_Kind_Block_Configuration
-              | Iir_Kinds_Specification
-              | Iir_Kind_Non_Object_Alias_Declaration
-              | Iir_Kinds_Subprogram_Body
-              | Iir_Kind_Protected_Type_Body
-              | Iir_Kind_Generate_Statement_Body
-              | Iir_Kind_Procedure_Call
-              | Iir_Kind_Aggregate_Info
-              | Iir_Kind_Entity_Class
-              | Iir_Kind_Signature
-              | Iir_Kind_Break_Element
-              | Iir_Kind_Reference_Name
-              | Iir_Kind_Package_Header
-              | Iir_Kind_Block_Header
-              | Iir_Kinds_Association_Element
-              | Iir_Kinds_Choice
-              | Iir_Kinds_Entity_Aspect
-              | Iir_Kind_Psl_Hierarchical_Name
-              | Iir_Kind_If_Generate_Else_Clause
-              | Iir_Kind_Elsif
-              | Iir_Kind_Simultaneous_Elsif
-              | Iir_Kind_Record_Element_Constraint
-              | Iir_Kind_Array_Element_Resolution
-              | Iir_Kind_Record_Resolution
-              | Iir_Kind_Record_Element_Resolution
-              | Iir_Kind_Element_Declaration
-              | Iir_Kind_Nature_Element_Declaration
-              | Iir_Kind_Psl_Endpoint_Declaration
-              | Iir_Kind_Psl_Declaration
-              | Iir_Kind_Package_Pathname
-              | Iir_Kind_Absolute_Pathname
-              | Iir_Kind_Relative_Pathname
-              | Iir_Kind_Pathname_Element
-              | Iir_Kind_Range_Expression
-              | Iir_Kind_Overload_List =>
+               | Iir_Kind_Unused
+               | Iir_Kind_Parenthesis_Name
+               | Iir_Kind_Conditional_Expression
+               | Iir_Kind_Character_Literal
+               | Iir_Kind_Operator_Symbol
+               | Iir_Kind_Design_File
+               | Iir_Kind_Design_Unit
+               | Iir_Kind_Library_Clause
+               | Iir_Kind_Use_Clause
+               | Iir_Kind_Context_Reference
+               | Iir_Kind_Library_Declaration
+               | Iir_Kinds_Library_Unit
+               | Iir_Kind_Component_Declaration
+               | Iir_Kind_Function_Declaration
+               | Iir_Kind_Procedure_Declaration
+               | Iir_Kind_Attribute_Declaration
+               | Iir_Kind_Nature_Declaration
+               | Iir_Kind_Subnature_Declaration
+               | Iir_Kinds_Type_Declaration
+               | Iir_Kinds_Type_And_Subtype_Definition
+               | Iir_Kinds_Nature_Definition
+               | Iir_Kinds_Subnature_Definition
+               | Iir_Kind_Wildcard_Type_Definition
+               | Iir_Kind_Subtype_Definition
+               | Iir_Kind_Group_Template_Declaration
+               | Iir_Kind_Group_Declaration
+               | Iir_Kind_Anonymous_Signal_Declaration
+               | Iir_Kind_Signal_Attribute_Declaration
+               | Iir_Kind_Unaffected_Waveform
+               | Iir_Kind_Waveform_Element
+               | Iir_Kind_Conditional_Waveform
+               | Iir_Kind_Binding_Indication
+               | Iir_Kind_Component_Configuration
+               | Iir_Kind_Block_Configuration
+               | Iir_Kinds_Specification
+               | Iir_Kind_Non_Object_Alias_Declaration
+               | Iir_Kinds_Subprogram_Body
+               | Iir_Kind_Protected_Type_Body
+               | Iir_Kind_Generate_Statement_Body
+               | Iir_Kind_Procedure_Call
+               | Iir_Kind_Aggregate_Info
+               | Iir_Kind_Entity_Class
+               | Iir_Kind_Signature
+               | Iir_Kind_Break_Element
+               | Iir_Kind_Reference_Name
+               | Iir_Kind_Package_Header
+               | Iir_Kind_Block_Header
+               | Iir_Kinds_Association_Element
+               | Iir_Kinds_Choice
+               | Iir_Kinds_Entity_Aspect
+               | Iir_Kind_Psl_Hierarchical_Name
+               | Iir_Kind_Psl_Prev
+               | Iir_Kind_Psl_Stable
+               | Iir_Kind_Psl_Rose
+               | Iir_Kind_Psl_Fell
+               | Iir_Kind_If_Generate_Else_Clause
+               | Iir_Kind_Elsif
+               | Iir_Kind_Simultaneous_Elsif
+               | Iir_Kind_Record_Element_Constraint
+               | Iir_Kind_Array_Element_Resolution
+               | Iir_Kind_Record_Resolution
+               | Iir_Kind_Record_Element_Resolution
+               | Iir_Kind_Element_Declaration
+               | Iir_Kind_Nature_Element_Declaration
+               | Iir_Kind_Psl_Endpoint_Declaration
+               | Iir_Kind_Psl_Declaration
+               | Iir_Kind_Package_Pathname
+               | Iir_Kind_Absolute_Pathname
+               | Iir_Kind_Relative_Pathname
+               | Iir_Kind_Pathname_Element
+               | Iir_Kind_Range_Expression
+               | Iir_Kind_Overload_List =>
                return Adecl;
          end case;
       end loop;