diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-01-08 10:24:40 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-01-09 06:40:18 +0100 |
commit | cd24558291b1406bfeefecd0f50e40e6061af382 (patch) | |
tree | 30efe53e28056e400a8343cf0960ad967706f7de /src/synth/elab-vhdl_expr.adb | |
parent | 38a2afee9e3c5a35d353cb0c6f3e65dc1ac41303 (diff) | |
download | ghdl-cd24558291b1406bfeefecd0f50e40e6061af382.tar.gz ghdl-cd24558291b1406bfeefecd0f50e40e6061af382.tar.bz2 ghdl-cd24558291b1406bfeefecd0f50e40e6061af382.zip |
elab-vhdl_expr(exec_name_subtype): handle image attribute
Diffstat (limited to 'src/synth/elab-vhdl_expr.adb')
-rw-r--r-- | src/synth/elab-vhdl_expr.adb | 8 |
1 files changed, 8 insertions, 0 deletions
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; |