|
@@ -470,6 +470,7 @@ Var
|
|
S : String;
|
|
S : String;
|
|
|
|
|
|
begin
|
|
begin
|
|
|
|
+ //system.writeln('TJSWriter.Write unicodestring=',U);
|
|
WriteIndent;
|
|
WriteIndent;
|
|
if UseUTF8 then
|
|
if UseUTF8 then
|
|
begin
|
|
begin
|
|
@@ -488,6 +489,7 @@ end;
|
|
|
|
|
|
procedure TJSWriter.Write(const S: TJSWriterString);
|
|
procedure TJSWriter.Write(const S: TJSWriterString);
|
|
begin
|
|
begin
|
|
|
|
+ //system.writeln('TJSWriter.Write TJSWriterString=',S);
|
|
{$ifdef FPC_HAS_CPSTRING}
|
|
{$ifdef FPC_HAS_CPSTRING}
|
|
if Not (woUseUTF8 in Options) then
|
|
if Not (woUseUTF8 in Options) then
|
|
Write(UnicodeString(S))
|
|
Write(UnicodeString(S))
|