From b1fea164a817977f8417175bdb98fbc925baf4ab Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 29 Apr 2022 12:20:53 +0200
Subject: elab-vhdl_types: do not crash on signal resolver

---
 src/synth/elab-vhdl_types.adb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/synth/elab-vhdl_types.adb b/src/synth/elab-vhdl_types.adb
index 09fbb11da..ca38e840b 100644
--- a/src/synth/elab-vhdl_types.adb
+++ b/src/synth/elab-vhdl_types.adb
@@ -530,6 +530,9 @@ package body Elab.Vhdl_Types is
             else
                raise Internal_Error;
             end if;
+         when Type_Vector =>
+            --  An alias with just a different resolver ?
+            return Parent_Typ;
          when others =>
             raise Internal_Error;
       end case;
-- 
cgit v1.2.3