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

nodepas2js: exception handling with stacktrace

Browse Source 
git-svn-id: trunk@40139 -
This commit is contained in:
Mattias Gaertner 2018-11-01 12:42:40 +00:00
parent 32907ada6d
commit db4f11201a
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/pastojs/src/pas2jscompiler.pp
View File

@ -2773,6 +2773,7 @@ procedure TPas2jsCompiler.HandleJSException(Msg: string; E: jsvalue;
TerminateInternal: boolean);
var
obj: JS.TJSObject;
Exc: Exception;
begin
if isObject(E) then
begin
@ -2784,6 +2785,21 @@ begin
writeln(obj['stack']);
{AllowWriteln-}
Log.Log(mtFatal,Msg+': '+String(obj['message']));
end else if isExt(obj,TObject) then
begin
if TObject(obj) is Exception then
begin
Exc:=Exception(TObject(obj));
{$ifdef NodeJS}
{AllowWriteln}
if Exc.NodeJSError<>nil then
writeln(Exc.NodeJSError.stack);
{AllowWriteln-}
{$endif}
Log.Log(mtFatal,Msg+': ('+Exc.ClassName+') '+Exc.Message);
end else begin
Log.Log(mtFatal,Msg+': ('+TObject(obj).ClassName+')');
end;
end else
Log.Log(mtFatal,Msg+': '+String(E));
end else begin