diff options
| -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; |