diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-07-03 08:08:01 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-07-18 19:19:54 +0200 |
| commit | 6238f3faab69113903b78da25e1b82f0e195018d (patch) | |
| tree | edc0da9f24353d395c5d4f86441a3422295eb9c9 | |
| parent | 1b85bf44cac4f7d1478a26822579891a9d4486d3 (diff) | |
| download | ghdl-6238f3faab69113903b78da25e1b82f0e195018d.tar.gz ghdl-6238f3faab69113903b78da25e1b82f0e195018d.tar.bz2 ghdl-6238f3faab69113903b78da25e1b82f0e195018d.zip | |
vhdl-configuration: avoid a crash after not-found component.
| -rw-r--r-- | src/vhdl/vhdl-configuration.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-configuration.adb b/src/vhdl/vhdl-configuration.adb index 0f5c63b62..15717718a 100644 --- a/src/vhdl/vhdl-configuration.adb +++ b/src/vhdl/vhdl-configuration.adb @@ -546,6 +546,9 @@ package body Vhdl.Configuration is Parent : Iir; begin Parent := Strip_Denoting_Name (Inst); + if Is_Error (Parent) then + return False; + end if; loop Parent := Get_Parent (Parent); if Get_Kind (Parent) = Iir_Kind_Library_Declaration then |