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

* another WebAssembly cbool fix in twasmtypeconvnode.second_int_to_bool

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-10-01 04:40:50 +03:00
parent 968e23546c
commit baf5ff4e05
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/wasm32/nwasmcnv.pas
View File

@ -141,20 +141,20 @@ implementation
current_asmdata.CurrAsmList.Concat(taicpu.op_functype(a_if,TWasmFuncType.Create([],[wbt_i32])));
thlcgwasm(hlcg).incblock;
thlcgwasm(hlcg).decstack(current_asmdata.CurrAsmList,1);
if is_64bit(left.resultdef) then
if is_64bit(resultdef) then
current_asmdata.CurrAsmList.Concat( taicpu.op_const(a_i64_const, -1) )
else if is_32bit(left.resultdef) then
else if is_32bit(resultdef) then
current_asmdata.CurrAsmList.Concat( taicpu.op_const(a_i32_const, -1) )
else if is_16bit(left.resultdef) then
else if is_16bit(resultdef) then
current_asmdata.CurrAsmList.Concat( taicpu.op_const(a_i32_const, 65535) )
else if is_8bit(left.resultdef) then
else if is_8bit(resultdef) then
current_asmdata.CurrAsmList.Concat( taicpu.op_const(a_i32_const, 255) )
else
internalerror(2021100101);
thlcgwasm(hlcg).incstack(current_asmdata.CurrAsmList,1);
current_asmdata.CurrAsmList.Concat( taicpu.op_none(a_else) );
thlcgwasm(hlcg).decstack(current_asmdata.CurrAsmList,1);
if is_64bit(left.resultdef) then
if is_64bit(resultdef) then
current_asmdata.CurrAsmList.Concat( taicpu.op_const(a_i64_const, 0) )
else
current_asmdata.CurrAsmList.Concat( taicpu.op_const(a_i32_const, 0) );