diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-01-16 17:49:28 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-01-16 17:49:28 +0100 |
commit | 5d367877abb626bcae0bcbb958d1519d316decd2 (patch) | |
tree | 4b1f93f4278fc837332e1d5b2819861cd7b93204 /src/synth | |
parent | e655569f12d0fc60aac01488efdc47f31c3e93f3 (diff) | |
download | ghdl-5d367877abb626bcae0bcbb958d1519d316decd2.tar.gz ghdl-5d367877abb626bcae0bcbb958d1519d316decd2.tar.bz2 ghdl-5d367877abb626bcae0bcbb958d1519d316decd2.zip |
synth-expr: handle string literals in port associations. Fix #1596
Diffstat (limited to 'src/synth')
-rw-r--r-- | src/synth/synth-expr.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 4b04060f4..d24d7e7b0 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -537,6 +537,12 @@ package body Synth.Expr is return Res.Typ; end; + when Iir_Kind_String_Literal8 => + -- TODO: the value should be computed (once) and its type + -- returned. + return Synth.Decls.Synth_Subtype_Indication + (Syn_Inst, Get_Type (Expr)); + when others => Vhdl.Errors.Error_Kind ("synth_type_of_object", Expr); end case; |