synth-expr: handle string literals in port associations. Fix #1596

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;