From ad0dd0fa656c475c3e195fb7f841f62a1c8cbbc1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 4 Oct 2017 20:43:23 +0200
Subject: sem_specs: do not check restrictions for incompatible associations.

Fix #424
---
 src/vhdl/sem_specs.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

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;
-- 
cgit v1.2.3