diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-29 08:46:32 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-29 08:46:32 +0100 |
| commit | 3965e755a499824c211965edaeac7c07fc50ccd8 (patch) | |
| tree | 0981e324319b864b724489019cdfab7af2f6cc74 /src | |
| parent | da2aeae6aad9977218a17013cdd38577aebaeb3d (diff) | |
| download | ghdl-3965e755a499824c211965edaeac7c07fc50ccd8.tar.gz ghdl-3965e755a499824c211965edaeac7c07fc50ccd8.tar.bz2 ghdl-3965e755a499824c211965edaeac7c07fc50ccd8.zip | |
synth: avoid a crash on subtype indication. Fix #2330
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/elab-vhdl_annotations.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/elab-vhdl_annotations.adb b/src/synth/elab-vhdl_annotations.adb index 7165db5de..8274d9ea8 100644 --- a/src/synth/elab-vhdl_annotations.adb +++ b/src/synth/elab-vhdl_annotations.adb @@ -302,7 +302,7 @@ package body Elab.Vhdl_Annotations is | Iir_Kind_Interface_Constant_Declaration | Iir_Kind_Interface_File_Declaration => Ind := Get_Subtype_Indication (El); - if Ind /= Null_Iir then + if Ind /= Null_Iir and then not Get_Is_Ref (El) then case Get_Kind (Ind) is when Iir_Kinds_Subtype_Definition => Annotate_Type_Definition (Block_Info, Ind); |