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

+ WebAssembly: check for exceptions after call of fpc_rangeerror in branchful

Browse Source 
exceptions mode. This fixes catching of ERangeError exceptions when using
  SysUtils and runtime errors are converted to exceptions.
This commit is contained in:
Nikolay Nikolov 2024-08-25 13:43:45 +03:00
parent 58a3f2ef64
commit b6527c6c03
1 changed files with 3 additions and 0 deletions

3
compiler/wasm32/hlcgcpu.pas
View File

@ -2275,6 +2275,7 @@ implementation
(lto > aintmax) then
begin
g_call_system_proc(list,'fpc_rangeerror',[],nil).resetiftemp;
hlcg.g_maybe_checkforexceptions(current_asmdata.CurrAsmList);
exit
end;
{ from is signed and to is unsigned -> when looking at to }
@ -2290,6 +2291,7 @@ implementation
(hto < 0) then
begin
g_call_system_proc(list,'fpc_rangeerror',[],nil).resetiftemp;
hlcg.g_maybe_checkforexceptions(current_asmdata.CurrAsmList);
exit
end;
{ from is unsigned and to is signed -> when looking at to }
@ -2319,6 +2321,7 @@ implementation
thlcgwasm(hlcg).decstack(current_asmdata.CurrAsmList,1);
g_call_system_proc(list,'fpc_rangeerror',[],nil).resetiftemp;
hlcg.g_maybe_checkforexceptions(current_asmdata.CurrAsmList);
current_asmdata.CurrAsmList.concat(taicpu.op_none(a_end_if));
end;