diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-08-09 06:15:11 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-08-10 09:47:29 +0200 |
commit | 79970276113b7d8276dc868202fb89bf01f064ac (patch) | |
tree | 1f7b1e94ca24b0ffba9d09ebe676b919cdb7d892 | |
parent | 12547db2809f1f5723b70828444555d6f0231648 (diff) | |
download | ghdl-79970276113b7d8276dc868202fb89bf01f064ac.tar.gz ghdl-79970276113b7d8276dc868202fb89bf01f064ac.tar.bz2 ghdl-79970276113b7d8276dc868202fb89bf01f064ac.zip |
sem_assocs: fix crash. Fix #631
-rw-r--r-- | src/vhdl/sem_assocs.adb | 3 |
1 files changed, 1 insertions, 2 deletions
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; |