diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-11-30 20:59:26 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-12-01 12:41:52 +0100 |
commit | dd77ee6766bbd16e3fbbf8c64c37b656c6a84922 (patch) | |
tree | 37b6dd9600c4f820ef19a2f3a64460dab6580b5c | |
parent | c3ad2c5690377c47cbc35378f899a430a264bd2f (diff) | |
download | ghdl-dd77ee6766bbd16e3fbbf8c64c37b656c6a84922.tar.gz ghdl-dd77ee6766bbd16e3fbbf8c64c37b656c6a84922.tar.bz2 ghdl-dd77ee6766bbd16e3fbbf8c64c37b656c6a84922.zip |
sem_assocs: improve error message.
-rw-r--r-- | src/vhdl/sem_assocs.adb | 5 |
1 files changed, 4 insertions, 1 deletions
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; |