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

* avoid useless GetNextReg calls in second_cmp for avr

Browse Source 
git-svn-id: trunk@22834 -
This commit is contained in:
florian 2012-10-23 20:13:28 +00:00
parent fd8827d379
commit f76ba05758
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/avr/navradd.pas
View File

@ -193,12 +193,15 @@ interface
for i:=2 to tcgsize2size[left.location.size] do for i:=2 to tcgsize2size[left.location.size] do
begin begin
tmpreg1:=GetNextReg(tmpreg1);
tmpreg2:=GetNextReg(tmpreg2);
if i=5 then if i=5 then
begin begin
tmpreg1:=left.location.registerhi; tmpreg1:=left.location.registerhi;
tmpreg2:=right.location.registerhi; tmpreg2:=right.location.registerhi;
end
else
begin
tmpreg1:=GetNextReg(tmpreg1);
tmpreg2:=GetNextReg(tmpreg2);
end; end;
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CPC,tmpreg1,tmpreg2)); current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CPC,tmpreg1,tmpreg2));
end; end;