diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-10-04 20:43:23 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-10-04 20:43:23 +0200 |
commit | ad0dd0fa656c475c3e195fb7f841f62a1c8cbbc1 (patch) | |
tree | 5c2bd632fa7f1182d5c12be01bede30eab54d8e1 /src | |
parent | d1f7774d255a509b61983fd6cbfc81ca2dd596fc (diff) | |
download | ghdl-ad0dd0fa656c475c3e195fb7f841f62a1c8cbbc1.tar.gz ghdl-ad0dd0fa656c475c3e195fb7f841f62a1c8cbbc1.tar.bz2 ghdl-ad0dd0fa656c475c3e195fb7f841f62a1c8cbbc1.zip |
sem_specs: do not check restrictions for incompatible associations.
Fix #424
Diffstat (limited to 'src')
-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 95e5361fc..9e5239bd7 100644 --- a/src/vhdl/sem_specs.adb +++ b/src/vhdl/sem_specs.adb @@ -1637,7 +1637,7 @@ package body Sem_Specs is Name := Build_Simple_Name (Comp_El, Parent); Set_Type (Name, Get_Type (Comp_El)); Set_Actual (Assoc, Name); - if Kind = Map_Port then + if Kind = Map_Port and then not Error then Check_Port_Association_Bounds_Restrictions (Ent_El, Comp_El, Assoc); end if; |