From 863f50775bb63bcea435535c58a8e04ff4bfc135 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 19 Mar 2020 18:28:54 +0100
Subject: synth-insts: also handle indexed name for synth_type_of_object.  Fix
 #1164

---
 src/synth/synth-insts.adb | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src')

diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb
index 95597ea5d..b5f0a58aa 100644
--- a/src/synth/synth-insts.adb
+++ b/src/synth/synth-insts.adb
@@ -821,6 +821,14 @@ package body Synth.Insts is
                end if;
                return Create_Onedimensional_Array_Subtype (Pfx_Typ, Res_Bnd);
             end;
+         when Iir_Kind_Indexed_Name =>
+            declare
+               Pfx_Typ : Type_Acc;
+            begin
+               Pfx_Typ := Synth_Type_Of_Object (Syn_Inst, Get_Prefix (Expr));
+               return Get_Array_Element (Pfx_Typ);
+            end;
+
          when others =>
             Vhdl.Errors.Error_Kind ("synth_type_of_object", Expr);
       end case;
-- 
cgit v1.2.3