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

* fixed OS_S8 to OS_16 conversion for WebAssembly. This fixes test/cg/tcnvint6

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-10-02 22:10:34 +03:00
parent 3258937d97
commit cc2fa67dfa
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/wasm32/hlcgcpu.pas
View File

@ -2361,7 +2361,11 @@ implementation
OS_8: OS_8:
a_op_const_stack(list,OP_AND,s32inttype,255); a_op_const_stack(list,OP_AND,s32inttype,255);
OS_S8: OS_S8:
list.concat(taicpu.op_none(a_i32_extend8_s)); begin
list.concat(taicpu.op_none(a_i32_extend8_s));
if tocgsize=OS_16 then
a_op_const_stack(list,OP_AND,s32inttype,65535);
end;
OS_16: OS_16:
a_op_const_stack(list,OP_AND,s32inttype,65535); a_op_const_stack(list,OP_AND,s32inttype,65535);
OS_S16: OS_S16: