paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* replace jmp by rjmp if possible, resolves issue #27885

Browse Source 
git-svn-id: trunk@30632 -
This commit is contained in:
florian 2015-04-17 20:14:18 +00:00
parent 07cba31a0a
commit 66e97549b9
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/avr/aasmcpu.pas
View File

@ -449,7 +449,17 @@ implementation
taicpu(curtai).oper[0]^.ref^.symbol:=l;
taicpu(curtai).condition:=inverse_cond(taicpu(curtai).condition);
again:=true;
end
{ replace JMP by RJMP? }
else if (curtai.typ=ait_instruction) and
(taicpu(curtai).opcode=A_JMP) and
(taicpu(curtai).InsOffset-taicpu(curtai).oper[0]^.ref^.symbol.offset<=2048) and
(taicpu(curtai).InsOffset-taicpu(curtai).oper[0]^.ref^.symbol.offset>=-2047) then
begin
taicpu(curtai).opcode:=A_RJMP;
again:=true;
end;
curtai:=tai(curtai.next);
end;
end;