diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-06-08 20:08:04 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-06-08 20:08:04 +0200 |
commit | 70505bdf00e894e9377e980dcce3edadd0d128c2 (patch) | |
tree | e991e5365ce5593d9aae6ad5289279bf1a166c9f /src | |
parent | 20d187f21a8a7718e4f4942a7fcb072ebcbf4527 (diff) | |
download | ghdl-70505bdf00e894e9377e980dcce3edadd0d128c2.tar.gz ghdl-70505bdf00e894e9377e980dcce3edadd0d128c2.tar.bz2 ghdl-70505bdf00e894e9377e980dcce3edadd0d128c2.zip |
Fix crash in case of missing configuration.
Fix ticket 88.
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/sem_specs.adb | 4 |
1 files changed, 3 insertions, 1 deletions
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; |