From 1ea2bc4ab4ae43273094dc798244fc864d2d6198 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 15 Mar 2018 21:01:20 +0100
Subject: Avoid cascaded error messages.

---
 src/vhdl/sem_assocs.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb
index 6bbc67215..bafea5496 100644
--- a/src/vhdl/sem_assocs.adb
+++ b/src/vhdl/sem_assocs.adb
@@ -1854,7 +1854,7 @@ package body Sem_Assocs is
       end if;
 
       if Match = Not_Compatible then
-         if Finish then
+         if Finish and then not Is_Error (Actual) then
             Error_Msg_Sem (+Assoc, "can't associate %n with %n",
                            (+Actual, +Inter), Cont => True);
             Error_Msg_Sem
-- 
cgit v1.2.3