From 7b7f3c1113a767b59e13cc49fe818c9c1efde15e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 10 May 2015 16:02:15 +0200
Subject: Correctly handle overload of subprogram in presence of subprogram
 alias. Fix ticket43 and ticket44.

---
 src/vhdl/sem.adb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src')

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;
-- 
cgit v1.2.3