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

* WebAssembly code generation fix in thlcgwasm.a_op_reg_reg_reg_checkoverflow, based on patch by Pierre (but simplified, to use a single block)

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-05-24 11:00:10 +03:00
parent 283c213a0c
commit 8bea5dd41e
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/hlcgcpu.pas
View File

@ -1734,9 +1734,11 @@ implementation
current_asmdata.getjumplabel(lab);
{ can be optimized by removing duplicate xor'ing to convert dst from
signed to unsigned quadrant }
list.concat(taicpu.op_none(a_block));
a_cmp_reg_reg_label(list,size,OC_B,dst,src1,lab);
a_cmp_reg_reg_label(list,size,OC_B,dst,src2,lab);
a_op_const_stack(list,OP_XOR,s32inttype,1);
list.concat(taicpu.op_none(a_end_block));
a_label(list,lab);
end;
a_load_stack_reg(list,s32inttype,ovloc.register);