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

* patch by Pierre, which fixes WebAssembly code generation for signed div/mod with overflow checking

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-05-24 10:47:38 +03:00
parent 0f4340e659
commit 283c213a0c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/wasm32/nwasmmat.pas
View File

@ -157,9 +157,11 @@ implementation
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,resultdef,true);
hlcg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_AND,resultdef,left.location.register,tmpreg);
current_asmdata.getjumplabel(lab);
current_asmdata.CurrAsmList.concat(taicpu.op_none(a_block));
hlcg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,resultdef,OC_NE,-1,tmpreg,lab);
hlcg.g_call_system_proc(current_asmdata.CurrAsmList,'fpc_overflow',[],nil);
hlcg.a_label(current_asmdata.CurrAsmList,lab);
current_asmdata.CurrAsmList.concat(taicpu.op_none(a_end_block));
end;
end;