paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 03:49:08 +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); a_load_reg_stack(list,size,reg);
if tmpref.base<>NR_EVAL_STACK_BASE then if tmpref.base<>NR_EVAL_STACK_BASE then
a_load_ref_stack(list,size,tmpref,prepare_stack_for_ref(list,tmpref,false)) a_load_ref_stack(list,size,tmpref,prepare_stack_for_ref(list,tmpref,false))
else begin else
// todo: need a swap operation? cmp_op:=swap_opcmp(cmp_op);
//list.concat(taicpu.op_none(a_swap));
Internalerror(2019083003);
end;
a_cmp_stack_stack(list,size,cmp_op); a_cmp_stack_stack(list,size,cmp_op);
end; end;