paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 08:19:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Christo Crause: Fix missed optimization opportunities, resolves #38285

Browse Source 
git-svn-id: trunk@47925 -
(cherry picked from commit 3482121831)
This commit is contained in:
florian 2020-12-31 15:33:39 +00:00
parent d75fb82753
commit 99588969b9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/avr/aoptcpu.pas
View File

@ -416,7 +416,7 @@ Implementation
DebugMsg('Peephole LdiMov/Cp2Ldi/Cpi performed', p);
RemoveCurrentP(p);
result:=RemoveCurrentP(p);
end;
ReleaseUsedRegs(TmpUsedRegs);
end;
@ -441,6 +441,7 @@ Implementation
taicpu(p).loadconst(0,taicpu(p).oper[0]^.ref^.offset)
else
taicpu(p).loadconst(0,taicpu(p).oper[0]^.ref^.offset-32);
result:=true;
end;
A_LDS:
if (taicpu(p).oper[1]^.ref^.symbol=nil) and
@ -462,6 +463,8 @@ Implementation
taicpu(p).loadconst(1,taicpu(p).oper[1]^.ref^.offset)
else
taicpu(p).loadconst(1,taicpu(p).oper[1]^.ref^.offset-32);
result:=true;
end;
A_IN:
if GetNextInstruction(p,hp1) then