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

* use 'br_if' instead of 'if br end_if' sequence in the code, generated by

Browse Source 
thlcgwasm.g_checkexceptions
This commit is contained in:
Nikolay Nikolov 2021-10-05 05:29:10 +03:00
parent d9eb8d75b9
commit 7110d1e48e
1 changed files with 1 additions and 7 deletions

8
compiler/wasm32/hlcgcpu.pas
View File

@ -2277,15 +2277,9 @@ implementation
pd:=search_system_proc('fpc_raised_exception_flag');
g_call_system_proc(list,pd,[],nil).resetiftemp;
list.concat(taicpu.op_none(A_IF));
incblock;
decstack(current_asmdata.CurrAsmList,1);
list.concat(taicpu.op_const(a_br,br_blocks-raiseBr));
list.concat(taicpu.op_none(A_END_IF));
decblock;
list.concat(taicpu.op_const(a_br_if,br_blocks-raiseBr));
end;
procedure thlcgwasm.a_load_stack_reg(list: TAsmList; size: tdef; reg: tregister);