From cd24558291b1406bfeefecd0f50e40e6061af382 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 8 Jan 2023 10:24:40 +0100
Subject: elab-vhdl_expr(exec_name_subtype): handle image attribute

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

(limited to 'src')

diff --git a/src/synth/elab-vhdl_expr.adb b/src/synth/elab-vhdl_expr.adb
index 471e3f88d..dff8f0b9d 100644
--- a/src/synth/elab-vhdl_expr.adb
+++ b/src/synth/elab-vhdl_expr.adb
@@ -525,6 +525,14 @@ package body Elab.Vhdl_Expr is
             --  returned.
             return Synth_Subtype_Indication (Syn_Inst, Get_Type (Name));
 
+         when Iir_Kind_Image_Attribute =>
+            declare
+               Val : Valtyp;
+            begin
+               Val := Synth.Vhdl_Expr.Synth_Expression (Syn_Inst, Name);
+               return Val.Typ;
+            end;
+
          when others =>
             Error_Kind ("exec_name_subtype", Name);
       end case;
-- 
cgit v1.2.3