From 06b760a68cca65b63a23f336ec7829a8181add7b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 12 Oct 2017 05:44:33 +0200
Subject: Improve error message for bad interface (and fix a crash).

---
 src/vhdl/sem_assocs.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb
index 96db4c18b..483aafd58 100644
--- a/src/vhdl/sem_assocs.adb
+++ b/src/vhdl/sem_assocs.adb
@@ -2247,10 +2247,12 @@ package body Sem_Assocs is
                end;
             end if;
             if Get_Kind (Inter) not in Iir_Kinds_Interface_Declaration
+              or else Interface_Chain = Null_Iir
               or else Get_Parent (Inter) /= Get_Parent (Interface_Chain)
             then
                if Finish then
-                  Error_Msg_Sem (+Assoc, "formal is not an interface name");
+                  Error_Msg_Sem
+                    (+Assoc, "formal %i is not an interface name", +Inter);
                end if;
                Match := Not_Compatible;
                exit;
-- 
cgit v1.2.3