paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@41224 -
This commit is contained in:
Mattias Gaertner 2019-02-04 16:02:42 +00:00
parent cfe65c8cd8
commit bf1af93938
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/pastojs/src/fppas2js.pp
View File

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

12
packages/pastojs/tests/tcmodules.pas
View File

@ -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";',