From 5d367877abb626bcae0bcbb958d1519d316decd2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 16 Jan 2021 17:49:28 +0100
Subject: synth-expr: handle string literals in port associations.  Fix #1596

---
 src/synth/synth-expr.adb | 6 ++++++
 1 file changed, 6 insertions(+)

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;
-- 
cgit v1.2.3