From 3965e755a499824c211965edaeac7c07fc50ccd8 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 29 Jan 2023 08:46:32 +0100 Subject: synth: avoid a crash on subtype indication. Fix #2330 --- src/synth/elab-vhdl_annotations.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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); -- cgit v1.2.3