From 79970276113b7d8276dc868202fb89bf01f064ac Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 9 Aug 2018 06:15:11 +0200
Subject: sem_assocs: fix crash.  Fix #631

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb
index 9b1c18047..961ec3c5f 100644
--- a/src/vhdl/sem_assocs.adb
+++ b/src/vhdl/sem_assocs.adb
@@ -2309,8 +2309,7 @@ package body Sem_Assocs is
                  or else Get_Parent (Inter) /= Get_Parent (Interface_Chain)
                then
                   if Finish then
-                     Error_Msg_Sem
-                       (+Assoc, "formal %i is not an interface name", +Inter);
+                     Error_Msg_Sem (+Assoc, "formal is not an interface name");
                   end if;
                   Match := Not_Compatible;
                   exit;
-- 
cgit v1.2.3