diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-09-28 03:46:48 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-09-28 03:46:48 +0200 |
commit | cc71215a2899941042efc668ce33dd38c8ce8d2a (patch) | |
tree | 274a0c4130c7d45c6e8220d1636d63543e311f96 /src | |
parent | 0e0fe240d4842d9472e134f78e97475d79492c2d (diff) | |
download | ghdl-cc71215a2899941042efc668ce33dd38c8ce8d2a.tar.gz ghdl-cc71215a2899941042efc668ce33dd38c8ce8d2a.tar.bz2 ghdl-cc71215a2899941042efc668ce33dd38c8ce8d2a.zip |
sem_assocs: fix crash.
Fix #419
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/sem_assocs.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb index eb6aa9288..96db4c18b 100644 --- a/src/vhdl/sem_assocs.adb +++ b/src/vhdl/sem_assocs.adb @@ -2228,6 +2228,15 @@ package body Sem_Assocs is or else Get_Kind (Formal) = Iir_Kind_Operator_Symbol); Set_Named_Entity (Formal, Inter); + if Inter = Null_Iir then + if Finish then + Error_Msg_Sem (+Assoc, "no interface %i for %n", + (+Formal, +Loc)); + end if; + Match := Not_Compatible; + exit; + end if; + if Is_Overload_List (Inter) then if Finish then Error_Msg_Sem (+Assoc, "ambiguous formal name"); |