Allow overloading procedures

nickg · Dec 27, 2012 · 85d92f7 · 85d92f7
1 parent fd2ce44
commit 85d92f7
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 3 deletions.
diff --git a/src/sem.c b/src/sem.c
@@ -195,9 +195,12 @@ static tree_t scope_find_nth(ident_t i, int n)
 
 static bool scope_can_overload(tree_t t)
 {
-   return tree_kind(t) == T_ENUM_LIT
-      || tree_kind(t) == T_FUNC_DECL
-      || tree_kind(t) == T_FUNC_BODY;
+   tree_kind_t kind = tree_kind(t);
+   return (kind == T_ENUM_LIT)
+      || (kind == T_FUNC_DECL)
+      || (kind == T_FUNC_BODY)
+      || (kind == T_PROC_DECL)
+      || (kind == T_PROC_BODY);
 }
 
 static bool scope_hides(tree_t a, tree_t b)

diff --git a/test/sem/procedure.vhd b/test/sem/procedure.vhd
@@ -64,4 +64,18 @@ package body p is
         diff_types(y => "f", 6);         -- Error
     end procedure;
 
+    procedure overload(x : in bit) is
+    begin
+    end procedure;
+
+    procedure overload(x : in integer) is
+    begin
+    end procedure;
+
+    procedure test_overload is
+    begin
+        overload('1');
+        overload(1);
+    end procedure;
+
 end package body;