diff options
| author | Tristan Gingold <gingold@adacore.com> | 2016-09-09 18:43:59 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-12 20:23:27 +0200 |
| commit | ae2ab19fbb8ae45c72229aea207e8bc30779cc1b (patch) | |
| tree | f32e22233aab22f6326062a1fec066502be02c67 /src | |
| parent | 02a0d7d0212cf0e277c880219022a0b7d951228f (diff) | |
| download | ghdl-ae2ab19fbb8ae45c72229aea207e8bc30779cc1b.tar.gz ghdl-ae2ab19fbb8ae45c72229aea207e8bc30779cc1b.tar.bz2 ghdl-ae2ab19fbb8ae45c72229aea207e8bc30779cc1b.zip | |
vhdl08: avoid a crash on package instantiation failure
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/sem_assocs.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb index 8c56e971e..441329234 100644 --- a/src/vhdl/sem_assocs.adb +++ b/src/vhdl/sem_assocs.adb @@ -1388,7 +1388,7 @@ package body Sem_Assocs is return; end if; - Match := Fully_Compatible; + Match := Not_Compatible; Sem_Association_Package_Type_Finish (Assoc, Inter); -- Analyze actual. @@ -1436,6 +1436,8 @@ package body Sem_Assocs is raise Internal_Error; end if; + Match := Fully_Compatible; + return; end Sem_Association_Package; |