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

* Xtensa: fix operand size and location handling in TCPUAddNode.second_cmp

Browse Source 
git-svn-id: trunk@46735 -
This commit is contained in:
florian 2020-08-30 21:32:45 +00:00
parent 6879a16cc3
commit 4407670d15
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/xtensa/ncpuadd.pas
View File

@ -158,7 +158,7 @@ interface
location_reset_jump(location,truelab,falselab);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,cgsize_orddef(OS_INT),true);
if is_signed(left.resultdef) then
case nodetype of
@ -187,7 +187,9 @@ interface
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,OS_INT,cond,right.location.value,left.location.register,location.truelabel)
else
begin
force_reg_left_right(false,false);
if not(right.location.loc in [LOC_CREGISTER,LOC_REGISTER]) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,right.location,right.resultdef,cgsize_orddef(OS_INT),true);
if nf_swapped in flags then
cg.a_cmp_reg_reg_label(current_asmdata.CurrAsmList,OS_INT,cond,left.location.register,right.location.register,location.truelabel)
else