From 168286ce3158582f80fdd0c725bd48611033638f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 25 Feb 2018 07:33:48 +0100
Subject: Also consider interface function for implicit operators association.

Fix #535
---
 src/vhdl/sem_assocs.adb | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb
index 13b9f1aea..3be3ba0a1 100644
--- a/src/vhdl/sem_assocs.adb
+++ b/src/vhdl/sem_assocs.adb
@@ -1483,9 +1483,13 @@ package body Sem_Assocs is
          Inter : Iir;
       begin
          --  A function declaration.
-         if Get_Kind (Decl) /= Iir_Kind_Function_Declaration then
-            return False;
-         end if;
+         case Get_Kind (Decl) is
+            when Iir_Kind_Function_Declaration
+              | Iir_Kind_Interface_Function_Declaration =>
+               null;
+            when others =>
+               return False;
+         end case;
          --  That returns a boolean.
          if (Get_Base_Type (Get_Return_Type (Decl))
                /= Std_Package.Boolean_Type_Definition)
-- 
cgit v1.2.3