paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 20:32:02 +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; hp,_ExceptObjectStack : PExceptObject;
begin begin
{$ifdef excdebug} {$ifdef excdebug}
writeln ('In PopObjectstack'); writeln ('In PopSecondObjectstack');
{$endif} {$endif}
_ExceptObjectStack:=ExceptObjectStack; _ExceptObjectStack:=ExceptObjectStack;
If not(assigned(_ExceptObjectStack)) or If not(assigned(_ExceptObjectStack)) or
@ -308,6 +308,9 @@ end;
{$ifndef FPC_SYSTEM_HAS_DONEEXCEPTION} {$ifndef FPC_SYSTEM_HAS_DONEEXCEPTION}
procedure fpc_doneexception;[public,alias:'FPC_DONEEXCEPTION'] compilerproc; procedure fpc_doneexception;[public,alias:'FPC_DONEEXCEPTION'] compilerproc;
begin begin
{$ifdef excdebug}
Writeln('In doneexception');
{$endif}
Internal_PopObjectStack.Free; Internal_PopObjectStack.Free;
end; end;
{$endif FPC_SYSTEM_HAS_DONEEXCEPTION} {$endif FPC_SYSTEM_HAS_DONEEXCEPTION}
@ -315,6 +318,9 @@ end;
{$ifndef FPC_SYSTEM_HAS_RAISENESTED} {$ifndef FPC_SYSTEM_HAS_RAISENESTED}
procedure fpc_raise_nested;[public,alias:'FPC_RAISE_NESTED']compilerproc; procedure fpc_raise_nested;[public,alias:'FPC_RAISE_NESTED']compilerproc;
begin begin
{$ifdef excdebug}
Writeln('In raise_nested');
{$endif}
Internal_PopSecondObjectStack.Free; Internal_PopSecondObjectStack.Free;
Internal_Reraise; Internal_Reraise;
end; end;

8
rtl/wasm32/except_native.inc
View File

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