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

pastojs: less hints

Browse Source 
git-svn-id: trunk@40209 -
This commit is contained in:
Mattias Gaertner 2018-11-03 21:53:09 +00:00
parent c160d93750
commit 767938dac7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/pastojs/src/pas2jslogger.pp
View File

@ -419,7 +419,7 @@ begin
jstNull: Result:='null';
jstBoolean: Result:=BoolToStr(Element.AsBoolean,'true','false');
jstNumber: str(Element.AsNumber,Result);
jstString: Result:=QuoteStr(Element.AsString{%H-},'''');
jstString: Result:=QuoteStr(String(Element.AsString),'''');
jstObject: Result:='{:OBJECT:}';
jstReference: Result:='{:REFERENCE:}';
JSTCompletion: Result:='{:COMPLETION:}';
@ -924,7 +924,9 @@ procedure TPas2jsLogger.LogExceptionBackTrace(E: Exception);
begin
{$IFDEF NodeJS}
if (E<>nil) and (E.NodeJSError<>nil) then
{AllowWriteln}
writeln(E.NodeJSError.Stack);
{AllowWriteln-}
{$ENDIF}
end;
{$ELSE}
@ -940,6 +942,7 @@ begin
Log(mtDebug,BackTraceStrFunc(lErrorAddr));
for FrameNumber := 0 to FrameCount-1 do
Log(mtDebug,BackTraceStrFunc(Frames[FrameNumber]));
if E=nil then ;
end;
{$ENDIF}