diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-05-16 07:51:19 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-05-16 07:51:19 +0200 |
| commit | 915a588a02957fcadfeff7db15beab2b2948b37a (patch) | |
| tree | aa5f866b016dc757e71297660329f0ba8f44e305 /src/vhdl/sem.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.adb')
| -rw-r--r-- | src/vhdl/sem.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index 0540242e3..12ec15c3a 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -354,7 +354,7 @@ package body Sem is (Inter_Parent : Iir; Assoc_Parent : Iir) return Boolean is El : Iir; - Match : Boolean; + Match : Compatibility_Level; Assoc_Chain : Iir; Inter_Chain : Iir; Miss : Missing_Type; @@ -418,7 +418,7 @@ package body Sem is Sem_Association_Chain (Inter_Chain, Assoc_Chain, True, Miss, Assoc_Parent, Match); Set_Generic_Map_Aspect_Chain (Assoc_Parent, Assoc_Chain); - if not Match then + if Match = Not_Compatible then return False; end if; @@ -461,7 +461,7 @@ package body Sem is Actual : Iir; Prefix : Iir; Object : Iir; - Match : Boolean; + Match : Compatibility_Level; Assoc_Chain : Iir; Miss : Missing_Type; Inter : Iir; @@ -506,7 +506,7 @@ package body Sem is Sem_Association_Chain (Get_Port_Chain (Inter_Parent), Assoc_Chain, True, Miss, Assoc_Parent, Match); Set_Port_Map_Aspect_Chain (Assoc_Parent, Assoc_Chain); - if not Match then + if Match = Not_Compatible then return; end if; |