Strengthen Is_Signal_Object, add a test for alias.

1 files changed, 1 insertions, 10 deletions

diff --git a/iirs_utils.adb b/iirs_utils.adb
index 5bc35fb..7ee171c 100644
--- a/iirs_utils.adb
+++ b/iirs_utils.adb
@@ -838,15 +838,6 @@ package body Iirs_Utils is
       Adecl := Get_Base_Name (Name);
       loop
          case Get_Kind (Adecl) is
-            when Iir_Kind_Variable_Declaration
-              | Iir_Kind_Variable_Interface_Declaration
-              | Iir_Kind_Constant_Declaration
-              | Iir_Kind_Constant_Interface_Declaration
-              | Iir_Kind_Implicit_Dereference
-              | Iir_Kind_Dereference
-              | Iir_Kind_Attribute_Value
-              | Iir_Kind_Function_Call =>
-               return False;
             when Iir_Kind_Signal_Declaration
               | Iir_Kind_Signal_Interface_Declaration
               | Iir_Kind_Guard_Signal_Declaration
@@ -855,7 +846,7 @@ package body Iirs_Utils is
             when Iir_Kind_Object_Alias_Declaration =>
                Adecl := Get_Base_Name (Get_Name (Adecl));
             when others =>
-               Error_Kind ("is_signal_object", Adecl);
+               return False;
          end case;
       end loop;
    end Is_Signal_Object;