From 915a588a02957fcadfeff7db15beab2b2948b37a Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 16 May 2015 07:51:19 +0200
Subject: Preliminary work to refine overload disambiguation.

---
 src/vhdl/sem_specs.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl/sem_specs.adb')

diff --git a/src/vhdl/sem_specs.adb b/src/vhdl/sem_specs.adb
index 47807a0..6ac2b2e 100644
--- a/src/vhdl/sem_specs.adb
+++ b/src/vhdl/sem_specs.adb
@@ -1590,7 +1590,7 @@ package body Sem_Specs is
             Assoc := Create_Iir (Iir_Kind_Association_Element_Open);
             Location_Copy (Assoc, Parent);
          else
-            if not Are_Nodes_Compatible (Comp_El, Ent_El) then
+            if Are_Nodes_Compatible (Comp_El, Ent_El) = Not_Compatible then
                if not Error then
                   Error_Msg_Sem
                     ("for default port binding of " & Disp_Node (Parent)
-- 
cgit