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

- removed spurious decstack/incstack in thlcgwasm.resize_stack_int_val

Browse Source 
git-svn-id: branches/wasm@47972 -
This commit is contained in:
nickysn 2021-01-02 13:47:53 +00:00
parent 0e23b9288c
commit 189c4025c2
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/wasm32/hlcgcpu.pas
View File

@ -2240,7 +2240,6 @@ implementation
begin begin
{ truncate } { truncate }
list.concat(taicpu.op_none(a_i32_wrap_i64)); list.concat(taicpu.op_none(a_i32_wrap_i64));
decstack(list,1);
end; end;
end end
else if tocgsize in [OS_S64,OS_64] then else if tocgsize in [OS_S64,OS_64] then
@ -2250,7 +2249,6 @@ implementation
list.concat(taicpu.op_none(a_i64_extend_s_i32)) list.concat(taicpu.op_none(a_i64_extend_s_i32))
else else
list.concat(taicpu.op_none(a_i64_extend_u_i32)); list.concat(taicpu.op_none(a_i64_extend_u_i32));
incstack(list,1);
{ if it was an unsigned 32 bit value, remove sign extension } { if it was an unsigned 32 bit value, remove sign extension }
if fromcgsize=OS_32 then if fromcgsize=OS_32 then
a_op_const_stack(list,OP_AND,s64inttype,cardinal($ffffffff)); a_op_const_stack(list,OP_AND,s64inttype,cardinal($ffffffff));