Sfoglia il codice sorgente

+ Xtensa: enable jump optimizer

git-svn-id: trunk@45045 -
florian 5 anni fa
parent
commit
8b71455e3b
1 ha cambiato i file con 8 aggiunte e 0 eliminazioni
  1. 8 0
      compiler/xtensa/aoptcpu.pas

+ 8 - 0
compiler/xtensa/aoptcpu.pas

@@ -36,6 +36,8 @@ Interface
 
     Type
       TCpuAsmOptimizer = class(TAsmOptimizer)
+        function CanDoJumpOpts: Boolean; override;
+
         { uses the same constructor as TAopObj }
         function RegLoadedWithNewValue(reg: tregister; hp: tai): boolean;override;
         function InstructionLoadsFromReg(const reg: TRegister; const hp: tai): boolean;override;
@@ -70,6 +72,12 @@ Implementation
     end;
 
 
+  function TCpuAsmOptimizer.CanDoJumpOpts: Boolean;
+    begin
+      Result := true;
+    end;
+
+
   function RefsEqual(const r1, r2: treference): boolean;
     begin
       refsequal :=