diff options
Diffstat (limited to 'src/synth/synth-expr.adb')
-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; |