fix #2366

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "8";
 	public const string Build = "0";
-	public const string Revision = "2891";
+	public const string Revision = "2892";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=8
-%REVISION%=2891
 %COREVERSION%=0
+%REVISION%=2892
+%MINOR%=8
 %MAJOR%=3

Parsers/PascalABCParserNewSaushkin/ABCPascal.cs

@@ -1,9 +1,9 @@
 //
 //  This CSharp output file generated by Gardens Point LEX
 //  Version:  1.1.3.301
-//  Machine:  DESKTOP-2BJCJ7I
-//  DateTime: 05.04.2021 12:23:25
-//  UserName: ibond
+//  Machine:  DESKTOP-G8V08V4
+//  DateTime: 24.04.2021 8:44:33
+//  UserName: ?????????
 //  GPLEX input file <ABCPascal.lex>
 //  GPLEX frame file <embedded resource>
 //

Parsers/PascalABCParserNewSaushkin/ABCPascalParserTools.cs

@@ -446,6 +446,7 @@ namespace PascalABCSavParser
             literal lt;
             text = ReplaceSpecialSymbols(text.Substring(2, text.Length - 3));
             lt = new string_const(text);
+            (lt as string_const).IsInterpolated = true;
             lt.source_context = sc;
             return lt;
         }

Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs

@@ -1,9 +1,9 @@
 // (see accompanying GPPGcopyright.rtf)
 
 // GPPG version 1.3.6
-// Machine:  DESKTOP-2BJCJ7I
-// DateTime: 05.04.2021 12:23:26
-// UserName: ibond
+// Machine:  DESKTOP-G8V08V4
+// DateTime: 24.04.2021 8:44:33
+// UserName: ?????????
 // Input file <ABCPascal.y>
 
 // options: no-lines gplex

Parsers/PascalABCParserNewSaushkin/PABC.ymc

@@ -327,6 +327,8 @@ script=
 
 
 
+
+
 
 
 

Release/pabcversion.txt

@@ -1 +1 @@
-3.8.0.2891
+3.8.0.2892

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.8.0.2891'
+!define VERSION '3.8.0.2892'

SyntaxTree/tree/TreeHelper.cs

@@ -627,6 +627,7 @@ namespace PascalABCCompiler.SyntaxTree
         {
             return "'" + Value + "'";
         }
+        public bool IsInterpolated = false;
     }
 
     public partial class expression_list

TestSuite/S_literal.pas

@@ -0,0 +1,4 @@
+begin
+  var a := $'d';
+  Assert(a.GetType = typeof(string));
+end.

TreeConverter/TreeConversion/syntax_tree_visitor.cs

@@ -16409,7 +16409,7 @@ namespace PascalABCCompiler.TreeConverter
         public override void visit(SyntaxTree.string_const _string_const)
         {
             expression_node en = null;
-            if (_string_const.Value.Length != 1)
+            if (_string_const.Value.Length != 1 || _string_const.IsInterpolated)
             {
                 en = new string_const_node(_string_const.Value, get_location(_string_const));
                 if (SemanticRules.GenerateNativeCode && SemanticRules.StringType != null)