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

* instead of using the 'throw' intrinsic, set a boolean flag, in the branchful

Browse Source 
exceptions support code
This commit is contained in:
Nikolay Nikolov 2021-10-05 00:49:29 +03:00
parent 5124ab2521
commit 30b503abc4
1 changed files with 6 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

@ -24,6 +24,7 @@ Var
{$endif FPC_HAS_FEATURE_THREADING}
ExceptObjectStack : PExceptObject;
ExceptTryLevel : ObjpasInt;
RaisedException : Boolean;
{$ifdef FPC_USE_PSABIEH}
{$i psabieh.inc}
@ -164,7 +165,8 @@ begin
with _ExceptObjectStack^ do
RaiseProc(FObject,Addr,FrameCount,Frames);
//longjmp(_ExceptAddrStack^.Buf^,FPC_Exception);
fpc_wasm32_throw_fpcexception;
//fpc_wasm32_throw_fpcexception;
RaisedException:=true;
end;
{$endif FPC_SYSTEM_HAS_RAISEEXCEPTION}
@ -246,7 +248,8 @@ begin
// DoUnHandledException;
ExceptObjectStack^.refcount := 0;
// longjmp(_ExceptAddrStack^.Buf^,FPC_Exception);
fpc_wasm32_throw_fpcexception;
// fpc_wasm32_throw_fpcexception;
RaisedException:=true;
end;
{$endif FPC_SYSTEM_HAS_RERAISE}
@ -287,6 +290,7 @@ Procedure SysInitExceptions;
Initialize exceptionsupport
}
begin
RaisedException:=false;
ExceptObjectstack:=Nil;
end;