paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 17:47:56 +02: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 -
This commit is contained in:
florian 2020-12-31 15:33:39 +00:00
parent c1a2b6279e
commit 3482121831
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

@ -423,7 +423,7 @@ Implementation
DebugMsg('Peephole LdiOp2Opi performed', p);
RemoveCurrentP(p);
result:=RemoveCurrentP(p);
end;
end;
end;
@ -447,6 +447,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
@ -468,6 +469,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