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

* get rid of the internal error in thlcgwasm.a_cmp_ref_reg_stack by using swap_opcmp

Browse Source 
git-svn-id: branches/wasm@48332 -
This commit is contained in:
nickysn 2021-01-22 16:31:31 +00:00
parent 5a84c4db61
commit 9e95895a9b
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/wasm32/hlcgcpu.pas
View File

@ -644,11 +644,8 @@ implementation
a_load_reg_stack(list,size,reg);
if tmpref.base<>NR_EVAL_STACK_BASE then
a_load_ref_stack(list,size,tmpref,prepare_stack_for_ref(list,tmpref,false))
else begin
// todo: need a swap operation?
//list.concat(taicpu.op_none(a_swap));
Internalerror(2019083003);
end;
else
cmp_op:=swap_opcmp(cmp_op);
a_cmp_stack_stack(list,size,cmp_op);
end;