From dd77ee6766bbd16e3fbbf8c64c37b656c6a84922 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 30 Nov 2018 20:59:26 +0100 Subject: sem_assocs: improve error message. --- src/vhdl/sem_assocs.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb index 098d21e20..cb9118750 100644 --- a/src/vhdl/sem_assocs.adb +++ b/src/vhdl/sem_assocs.adb @@ -2205,6 +2205,8 @@ package body Sem_Assocs is if Finish then -- FIXME: display the name of subprg or component/entity. -- FIXME: fetch the interface (for parenthesis_name). + -- FIXME: this is always a duplicate of a message from + -- Sem_Name. Error_Msg_Sem (+Assoc, "no interface for %n in association", +Get_Formal (Assoc)); end if; @@ -2338,7 +2340,8 @@ package body Sem_Assocs is 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, "%n is not an interface name", +Inter); end if; Match := Not_Compatible; exit; -- cgit v1.2.3