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

+ print more exceptions debug info, when the WebAssembly RTL is compiled with -dEXCDEBUG

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-06-21 04:47:04 +03:00
parent 8c5bc91855
commit 48f115686d
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/wasm32/except_branchful.inc
View File

@ -219,7 +219,7 @@ var
hp,_ExceptObjectStack : PExceptObject;
begin
{$ifdef excdebug}
writeln ('In PopObjectstack');
writeln ('In PopSecondObjectstack');
{$endif}
_ExceptObjectStack:=ExceptObjectStack;
If not(assigned(_ExceptObjectStack)) or
@ -308,6 +308,9 @@ end;
{$ifndef FPC_SYSTEM_HAS_DONEEXCEPTION}
procedure fpc_doneexception;[public,alias:'FPC_DONEEXCEPTION'] compilerproc;
begin
{$ifdef excdebug}
Writeln('In doneexception');
{$endif}
Internal_PopObjectStack.Free;
end;
{$endif FPC_SYSTEM_HAS_DONEEXCEPTION}
@ -315,6 +318,9 @@ end;
{$ifndef FPC_SYSTEM_HAS_RAISENESTED}
procedure fpc_raise_nested;[public,alias:'FPC_RAISE_NESTED']compilerproc;
begin
{$ifdef excdebug}
Writeln('In raise_nested');
{$endif}
Internal_PopSecondObjectStack.Free;
Internal_Reraise;
end;

8
rtl/wasm32/except_native.inc
View File

@ -207,7 +207,7 @@ var
hp,_ExceptObjectStack : PExceptObject;
begin
{$ifdef excdebug}
writeln ('In PopObjectstack');
writeln ('In PopSecondObjectstack');
{$endif}
_ExceptObjectStack:=ExceptObjectStack;
If not(assigned(_ExceptObjectStack)) or
@ -294,6 +294,9 @@ end;
{$ifndef FPC_SYSTEM_HAS_DONEEXCEPTION}
procedure fpc_doneexception;[public,alias:'FPC_DONEEXCEPTION'] compilerproc;
begin
{$ifdef excdebug}
Writeln('In doneexception');
{$endif}
Internal_PopObjectStack.Free;
end;
{$endif FPC_SYSTEM_HAS_DONEEXCEPTION}
@ -301,6 +304,9 @@ end;
{$ifndef FPC_SYSTEM_HAS_RAISENESTED}
procedure fpc_raise_nested;[public,alias:'FPC_RAISE_NESTED']compilerproc;
begin
{$ifdef excdebug}
Writeln('In raise_nested');
{$endif}
Internal_PopSecondObjectStack.Free;
Internal_Reraise;
end;