paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 15:50:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix AVR comparison with zero.

Browse Source 
git-svn-id: trunk@32589 -
This commit is contained in:
Jeppe Johansen 2015-12-05 15:25:33 +00:00
parent 42e08b4c01
commit 159c28eca8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/avr/cgcpu.pas
View File

@ -1599,17 +1599,17 @@ unit cgcpu;
end;
if swapped then
list.concat(taicpu.op_reg_reg(A_CP,reg,NR_R1))
list.concat(taicpu.op_reg_reg(A_CP,NR_R1,reg))
else
list.concat(taicpu.op_reg_reg(A_CP,NR_R1,reg));
list.concat(taicpu.op_reg_reg(A_CP,reg,NR_R1));
for i:=2 to tcgsize2size[size] do
begin
reg:=GetNextReg(reg);
if swapped then
list.concat(taicpu.op_reg_reg(A_CPC,reg,NR_R1))
list.concat(taicpu.op_reg_reg(A_CPC,NR_R1,reg))
else
list.concat(taicpu.op_reg_reg(A_CPC,NR_R1,reg));
list.concat(taicpu.op_reg_reg(A_CPC,reg,NR_R1));
end;
a_jmp_cond(list,cmp_op,l);