aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2021-01-16 17:49:28 +0100
committerTristan Gingold <tgingold@free.fr>2021-01-16 17:49:28 +0100
commit5d367877abb626bcae0bcbb958d1519d316decd2 (patch)
tree4b1f93f4278fc837332e1d5b2819861cd7b93204 /src
parente655569f12d0fc60aac01488efdc47f31c3e93f3 (diff)
downloadghdl-5d367877abb626bcae0bcbb958d1519d316decd2.tar.gz
ghdl-5d367877abb626bcae0bcbb958d1519d316decd2.tar.bz2
ghdl-5d367877abb626bcae0bcbb958d1519d316decd2.zip
synth-expr: handle string literals in port associations. Fix #1596
Diffstat (limited to 'src')
-rw-r--r--src/synth/synth-expr.adb6
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;