From 70505bdf00e894e9377e980dcce3edadd0d128c2 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 8 Jun 2015 20:08:04 +0200 Subject: Fix crash in case of missing configuration. Fix ticket 88. --- src/vhdl/sem_specs.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/vhdl') diff --git a/src/vhdl/sem_specs.adb b/src/vhdl/sem_specs.adb index 6ac2b2e00..de48c4fe5 100644 --- a/src/vhdl/sem_specs.adb +++ b/src/vhdl/sem_specs.adb @@ -1072,7 +1072,9 @@ package body Sem_Specs is Sem_Denoting_Name (Get_Configuration_Name (Aspect)); Set_Configuration_Name (Aspect, Conf_Name); Conf := Get_Named_Entity (Conf_Name); - if Get_Kind (Conf) /= Iir_Kind_Configuration_Declaration then + if Is_Error (Conf) then + return Null_Iir; + elsif Get_Kind (Conf) /= Iir_Kind_Configuration_Declaration then Error_Class_Match (Conf, "configuration"); return Null_Iir; end if; -- cgit v1.2.3