From b27cc2de7294a3f1730465fad2f9f772212a5345 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 4 Oct 2022 13:11:02 +0200
Subject: elab-vhdl_objtypes(unshare): handle slice_type.  Fix #2205

---
 src/synth/elab-vhdl_objtypes.adb | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/synth/elab-vhdl_objtypes.adb b/src/synth/elab-vhdl_objtypes.adb
index b027c84f1..1a04fc411 100644
--- a/src/synth/elab-vhdl_objtypes.adb
+++ b/src/synth/elab-vhdl_objtypes.adb
@@ -1034,7 +1034,7 @@ package body Elab.Vhdl_Objtypes is
            | Type_Float =>
             null;
          when Type_Slice =>
-            raise Internal_Error;
+            Res.Slice_El := Unshare (T.Slice_El, Pool);
          when Type_Array
            | Type_Vector =>
             Res.Arr_El := Unshare (T.Arr_El, Pool);
@@ -1084,7 +1084,9 @@ package body Elab.Vhdl_Objtypes is
            | Type_Float =>
             null;
          when Type_Slice =>
-            raise Internal_Error;
+            Res.Slice_El := Unshare_Type (Typ.Slice_El,
+                                          Get_Array_Element (Base),
+                                          Global, Pool);
          when Type_Array
            | Type_Vector =>
             Res.Arr_El := Unshare_Type (Typ.Arr_El,
-- 
cgit v1.2.3