diff options
Diffstat (limited to 'src/vhdl/vhdl-utils.adb')
-rw-r--r-- | src/vhdl/vhdl-utils.adb | 140 |
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; |