diff options
| -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; |