From cc71215a2899941042efc668ce33dd38c8ce8d2a Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 28 Sep 2017 03:46:48 +0200 Subject: sem_assocs: fix crash. Fix #419 --- src/vhdl/sem_assocs.adb | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'src') 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"); -- cgit v1.2.3