vhdl: reduce use of is_anonymous_type_definition

1 files changed, 12 insertions, 5 deletions

diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
index fa5f31ee8..084e39e5a 100644
--- a/src/vhdl/vhdl-utils.adb
+++ b/src/vhdl/vhdl-utils.adb
@@ -1124,11 +1124,6 @@ package body Vhdl.Utils is
       return Get_Type_Declarator (Def) = Null_Iir;
    end Is_Anonymous_Type_Definition;
 
-   function Is_Anonymous_Nature_Definition (Def : Iir) return Boolean is
-   begin
-      return Get_Nature_Declarator (Def) = Null_Iir;
-   end Is_Anonymous_Nature_Definition;
-
    function Is_Array_Type (Def : Iir) return Boolean is
    begin
       return Get_Kind (Def) in Iir_Kinds_Array_Type_Definition;
@@ -1337,6 +1332,18 @@ package body Vhdl.Utils is
       end case;
    end Is_Proper_Subtype_Indication;
 
+   function Is_Proper_Subnature_Indication (Def : Iir) return Boolean is
+   begin
+      case Get_Kind (Def) is
+         when Iir_Kinds_Subnature_Definition =>
+            return True;
+         when Iir_Kinds_Denoting_Name =>
+            return False;
+         when others =>
+            Error_Kind ("is_proper_subnature_indication", Def);
+      end case;
+   end Is_Proper_Subnature_Indication;
+
    function Has_Owned_Subtype_Indication (Decl : Iir) return Boolean
    is
       Def : Iir;