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

* fixes to the type conversions in thlcgwasm.resize_stack_int_val

Browse Source 
git-svn-id: branches/wasm@48266 -
This commit is contained in:
nickysn 2021-01-21 14:22:19 +00:00
parent 17bfdee158
commit a6410fae90
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/wasm32/hlcgcpu.pas
View File

@ -1887,14 +1887,20 @@ implementation
list.concat(taicpu.op_none(a_i64_extend_u_i32));
end;
OS_S8:
list.concat(taicpu.op_none(a_i64_extend_s_8));
begin
list.concat(taicpu.op_none(a_i64_extend_u_i32));
list.concat(taicpu.op_none(a_i64_extend_s_8));
end;
OS_16:
begin
a_op_const_stack(list,OP_AND,s32inttype,65535);
list.concat(taicpu.op_none(a_i64_extend_u_i32));
end;
OS_S16:
list.concat(taicpu.op_none(a_i64_extend_s_16));
begin
list.concat(taicpu.op_none(a_i64_extend_u_i32));
list.concat(taicpu.op_none(a_i64_extend_s_16));
end;
OS_32:
list.concat(taicpu.op_none(a_i64_extend_u_i32));
OS_S32: