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

* patch by Christo Crause: fix for r43136

Browse Source 
git-svn-id: trunk@43169 -
This commit is contained in:
florian 2019-10-12 11:52:06 +00:00
parent 76b5df1bd3
commit 5fc12500f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/avr/cgcpu.pas
View File

@ -513,7 +513,7 @@ unit cgcpu;
if op=OP_SHL then if op=OP_SHL then
list.concat(taicpu.op_reg(A_ROL,GetOffsetReg64(dst,NR_NO,i-1))) list.concat(taicpu.op_reg(A_ROL,GetOffsetReg64(dst,NR_NO,i-1)))
else else
list.concat(taicpu.op_reg(A_ROR,GetOffsetReg64(dst,NR_NO,tcgsize2size[size]-i-b))); list.concat(taicpu.op_reg(A_ROR,GetOffsetReg64(dst,NR_NO,tcgsize2size[size]-i)));
end; end;
list.concat(taicpu.op_reg(A_DEC,countreg)); list.concat(taicpu.op_reg(A_DEC,countreg));
a_jmp_flags(list,F_NE,l1); a_jmp_flags(list,F_NE,l1);