+ CallReg2Jmp optimization

git-svn-id: trunk@34937 -
2025-04-21 08:09:33 +02:00 · 2016-11-20 18:00:27 +00:00 · 2016-11-20 18:00:27 +00:00 · e33b2920dc
commit e33b2920dc
parent 3eef641833
1 changed files with 14 additions and 0 deletions
--- a/compiler/avr/aoptcpu.pas
+++ b/compiler/avr/aoptcpu.pas
@ -696,6 +696,20 @@ Implementation

                      end;
                  end;
+                A_CALL:
+                  if (cs_opt_level4 in current_settings.optimizerswitches) and
+                    GetNextInstruction(p,hp1) and
+                    MatchInstruction(hp1,A_RET) then
+                    begin
+                       DebugMsg('Peephole CallReg2Jmp performed', p);
+
+                       taicpu(p).opcode:=A_JMP;
+
+                       asml.Remove(hp1);
+                       hp1.Free;
+
+                       result:=true;
+                    end;
                A_MOV:
                  begin
                    { turn