paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 00:50:17 +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); DebugMsg('Peephole LdiOp2Opi performed', p);
RemoveCurrentP(p); result:=RemoveCurrentP(p);
end; end;
end; end;
end; end;
@ -447,6 +447,7 @@ Implementation
taicpu(p).loadconst(0,taicpu(p).oper[0]^.ref^.offset) taicpu(p).loadconst(0,taicpu(p).oper[0]^.ref^.offset)
else else
taicpu(p).loadconst(0,taicpu(p).oper[0]^.ref^.offset-32); taicpu(p).loadconst(0,taicpu(p).oper[0]^.ref^.offset-32);
result:=true;
end; end;
A_LDS: A_LDS:
if (taicpu(p).oper[1]^.ref^.symbol=nil) and if (taicpu(p).oper[1]^.ref^.symbol=nil) and
@ -468,6 +469,8 @@ Implementation
taicpu(p).loadconst(1,taicpu(p).oper[1]^.ref^.offset) taicpu(p).loadconst(1,taicpu(p).oper[1]^.ref^.offset)
else else
taicpu(p).loadconst(1,taicpu(p).oper[1]^.ref^.offset-32); taicpu(p).loadconst(1,taicpu(p).oper[1]^.ref^.offset-32);
result:=true;
end; end;
A_IN: A_IN:
if GetNextInstruction(p,hp1) then if GetNextInstruction(p,hp1) then