pastojs: typecast string(unicodestring), unicodestring(string)

git-svn-id: trunk@41224 -

packages/pastojs/src/fppas2js.pp

@@ -1183,8 +1183,8 @@ const
     ];
   bfAllJSBaseProcs = bfAllStandardProcs;
 
-  btAllJSStrings = [btString];
-  btAllJSChars = [btChar];
+  btAllJSStrings = [btString,btUnicodeString];
+  btAllJSChars = [btChar,btWideChar];
   btAllJSStringAndChars = btAllJSStrings+btAllJSChars;
   btAllJSFloats = [btDouble];
   btAllJSBooleans = [btBoolean];

packages/pastojs/tests/tcmodules.pas

@@ -6679,6 +6679,10 @@ begin
   '{$H+}',
   'const',
   '  a = #$00F3#$017C;', // first <256, then >=256
+  '  b = string(''a'');',
+  '  c = string(''ä'');',
+  '  d = UnicodeString(''b'');',
+  '  e = UnicodeString(''ö'');',
   'var',
   '  s: string = ''abc'';',
   'begin',
@@ -6699,8 +6703,12 @@ begin
   CheckSource('TestStringConst',
     LinesToStr([
     'this.a = "óż";',
-    'this.s="abc";'
-    ]),
+    'this.b = "a";',
+    'this.c = "ä";',
+    'this.d = "b";',
+    'this.e = "ö";',
+    'this.s="abc";',
+    '']),
     LinesToStr([
     '$mod.s="";',
     '$mod.s="\r\n";',