diff options
author | Tristan Gingold | 2015-05-16 07:51:19 +0200 |
---|---|---|
committer | Tristan Gingold | 2015-05-16 07:51:19 +0200 |
commit | 915a588a02957fcadfeff7db15beab2b2948b37a (patch) | |
tree | aa5f866b016dc757e71297660329f0ba8f44e305 /src/vhdl/sem_specs.adb | |
parent | c91b6b08c87a829ebb0692e2bc591aa580fb7a8a (diff) | |
download | ghdl-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.adb | 2 |
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) |