summaryrefslogtreecommitdiff
path: root/src/vhdl/sem_specs.adb
diff options
context:
space:
mode:
authorTristan Gingold2015-05-16 07:51:19 +0200
committerTristan Gingold2015-05-16 07:51:19 +0200
commit915a588a02957fcadfeff7db15beab2b2948b37a (patch)
treeaa5f866b016dc757e71297660329f0ba8f44e305 /src/vhdl/sem_specs.adb
parentc91b6b08c87a829ebb0692e2bc591aa580fb7a8a (diff)
downloadghdl-915a588a02957fcadfeff7db15beab2b2948b37a.tar.gz
ghdl-915a588a02957fcadfeff7db15beab2b2948b37a.tar.bz2
ghdl-915a588a02957fcadfeff7db15beab2b2948b37a.zip
Preliminary work to refine overload disambiguation.
Diffstat (limited to 'src/vhdl/sem_specs.adb')
-rw-r--r--src/vhdl/sem_specs.adb2
1 files changed, 1 insertions, 1 deletions
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)