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

* fix tcgavr.g_flags2reg for sizes > 1 byte

Browse Source 
git-svn-id: trunk@42938 -
This commit is contained in:
florian 2019-09-07 20:19:12 +00:00
parent 8cfee11345
commit 9e5cbce6be
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/avr/cgcpu.pas
View File

@ -1761,6 +1761,8 @@ unit cgcpu;
var var
l : TAsmLabel; l : TAsmLabel;
tmpflags : TResFlags; tmpflags : TResFlags;
i: Integer;
hreg: TRegister;
begin begin
current_asmdata.getjumplabel(l); current_asmdata.getjumplabel(l);
{ {
@ -1776,6 +1778,13 @@ unit cgcpu;
} }
begin begin
list.concat(taicpu.op_reg_const(A_LDI,reg,1)); list.concat(taicpu.op_reg_const(A_LDI,reg,1));
hreg:=reg;
for i:=2 to tcgsize2size[size] do
begin
hreg:=GetNextReg(hreg);
emit_mov(list,hreg,NR_R1);
end;
a_jmp_flags(list,f,l); a_jmp_flags(list,f,l);
emit_mov(list,reg,NR_R1); emit_mov(list,reg,NR_R1);
end; end;