From 777f73f67f0f2d18f73dc223a2d941ece31d0c9e Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 23 Jul 2014 20:13:49 +0200 Subject: Add parenthesis_Expression, --reprint and --compare-tokens commands. --- iirs_utils.adb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'iirs_utils.adb') diff --git a/iirs_utils.adb b/iirs_utils.adb index 8bbaf9b16..d307febda 100644 --- a/iirs_utils.adb +++ b/iirs_utils.adb @@ -657,10 +657,9 @@ package body Iirs_Utils is Name : constant Iir := Get_Entity_Name (Arch); begin case Get_Kind (Name) is - when Iir_Kind_Simple_Name => + when Iir_Kind_Simple_Name + | Iir_Kind_Selected_Name => return Get_Identifier (Name); - when Iir_Kind_Selected_Name => - return Get_Suffix_Identifier (Name); when others => Error_Kind ("get_entity_identifier_of_architecture", Name); end case; @@ -734,7 +733,7 @@ package body Iirs_Utils is if Get_Kind (Attr) /= Iir_Kind_Attribute_Name then return False; end if; - Id := Get_Attribute_Identifier (Attr); + Id := Get_Identifier (Attr); return Id = Name_Range or Id = Name_Reverse_Range; end Is_Range_Attribute_Name; -- cgit v1.2.3