diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-06-16 03:39:31 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-06-16 03:39:31 +0200 |
| commit | d18f30ccdbd6ace83bff7d4de5af0c72b0082bb7 (patch) | |
| tree | 17d34d7ee43f70024a6b4a38889e118481fa5856 /src | |
| parent | dddfb9512046198d9814a8d9ebf281d873daf1c1 (diff) | |
| download | ghdl-d18f30ccdbd6ace83bff7d4de5af0c72b0082bb7.tar.gz ghdl-d18f30ccdbd6ace83bff7d4de5af0c72b0082bb7.tar.bz2 ghdl-d18f30ccdbd6ace83bff7d4de5af0c72b0082bb7.zip | |
sem_decls: avoid crash on unknown subtype.
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/sem_decls.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/sem_decls.adb b/src/vhdl/sem_decls.adb index 122bcf17e..e3d0480c4 100644 --- a/src/vhdl/sem_decls.adb +++ b/src/vhdl/sem_decls.adb @@ -1691,7 +1691,7 @@ package body Sem_Decls is Ind := Sem_Subtype_Indication (Ind); Set_Subtype_Indication (Decl, Ind); Def := Get_Type_Of_Subtype_Indication (Ind); - if Def = Null_Iir then + if Def = Null_Iir or else Is_Error (Def) then return; end if; |