paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 16:09:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ AddAdc2Add

Browse Source 
+ SubSbc2Sub

git-svn-id: trunk@38485 -
This commit is contained in:
florian 2018-03-10 21:53:43 +00:00
parent 3a81ccf48b
commit 52cb8fbb98
1 changed files with 32 additions and 0 deletions

32
compiler/avr/aoptcpu.pas
View File

@ -546,6 +546,38 @@ Implementation
result:=true;
end;
end;
A_ADD:
begin
if (taicpu(p).oper[1]^.reg=NR_R1) and
GetNextInstruction(p, hp1) and
MatchInstruction(hp1,A_ADC) then
begin
DebugMsg('Peephole AddAdc2Add performed', p);
taicpu(hp1).opcode:=A_ADD;
asml.Remove(p);
p.Free;
p:=hp1;
result:=true;
end;
end;
A_SUB:
begin
if (taicpu(p).oper[1]^.reg=NR_R1) and
GetNextInstruction(p, hp1) and
MatchInstruction(hp1,A_SBC) then
begin
DebugMsg('Peephole SubSbc2Sub performed', p);
taicpu(hp1).opcode:=A_SUB;
asml.Remove(p);
p.Free;
p:=hp1;
result:=true;
end;
end;
A_CLR:
begin
{ turn the common