vhdl-utils: fix a crash after an error

Fix ghdl#1602
stefanlippuner · Feb 6, 2024 · 80832c4 · 80832c4
1 parent f9086ac
commit 80832c4
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
@@ -1191,9 +1191,11 @@ package body Vhdl.Utils is
       case Get_Kind (Base) is
          when Iir_Kind_Variable_Declaration
             | Iir_Kind_Signal_Declaration
+            | Iir_Kind_Constant_Declaration
             | Iir_Kind_Interface_Variable_Declaration
             | Iir_Kind_Interface_Signal_Declaration
-            | Iir_Kind_Object_Alias_Declaration =>
+            | Iir_Kind_Object_Alias_Declaration
+            | Iir_Kind_Interface_Constant_Declaration =>
             declare
                Ind : constant Iir := Get_Subtype_Indication (Base);
             begin