Correctly handle overload of subprogram in presence of subprogram alias.

Fix ticket43 and ticket44.

1 files changed, 6 insertions, 1 deletions

diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb
index 3a3f50540..b1d1015e2 100644
--- a/src/vhdl/sem.adb
+++ b/src/vhdl/sem.adb
@@ -1618,8 +1618,13 @@ package body Sem is
             when Iir_Kind_Enumeration_Literal =>
                --  Enumeration literal are ignored for overload number.
                Inter := Get_Next_Interpretation (Inter);
+            when Iir_Kind_Non_Object_Alias_Declaration =>
+               --  Subprogram aliases aren't considered, just skip them.
+               --  (No subprogram is created by an alias).
+               Inter := Get_Next_Interpretation (Inter);
             when others =>
-               --  An error ?
+               --  Case of user error: redefinition of an identifier.
+               --  Error message is generated by sem_scope.
                Set_Overload_Number (Decl, 0);
                return;
          end case;