Ver Fonte

* Removed unused vars for x86-64 compiler.

git-svn-id: trunk@31744 -
yury há 10 anos atrás
pai
commit
47b316d0e2
3 ficheiros alterados com 4 adições e 1 exclusões
  1. 2 0
      compiler/ncgld.pas
  2. 2 0
      compiler/x86/nx86mat.pas
  3. 0 1
      compiler/x86_64/aoptcpu.pas

+ 2 - 0
compiler/ncgld.pas

@@ -589,7 +589,9 @@ implementation
          alignmentrequirement,
          alignmentrequirement,
          len : aint;
          len : aint;
          r : tregister;
          r : tregister;
+         {$if not defined(cpu64bitalu) and not defined(x86)}
          r64 : tregister64;
          r64 : tregister64;
+         {$endif}
          oldflowcontrol : tflowcontrol;
          oldflowcontrol : tflowcontrol;
       begin
       begin
         { previously, managed types were handled in firstpass
         { previously, managed types were handled in firstpass

+ 2 - 0
compiler/x86/nx86mat.pas

@@ -230,7 +230,9 @@ interface
     procedure tx86notnode.second_boolean;
     procedure tx86notnode.second_boolean;
       var
       var
          opsize : tcgsize;
          opsize : tcgsize;
+         {$if defined(cpu32bitalu)}
          hreg: tregister;
          hreg: tregister;
+         {$endif}
       begin
       begin
         opsize:=def_cgsize(resultdef);
         opsize:=def_cgsize(resultdef);
 
 

+ 0 - 1
compiler/x86_64/aoptcpu.pas

@@ -153,7 +153,6 @@ function MatchReference(const ref : treference;base,index : TRegister) : Boolean
 
 
 function TCpuAsmOptimizer.PeepHoleOptPass1Cpu(var p: tai): boolean;
 function TCpuAsmOptimizer.PeepHoleOptPass1Cpu(var p: tai): boolean;
 var
 var
-  next1: tai;
   hp1, hp2: tai;
   hp1, hp2: tai;
   GetNextIntruction_p : boolean;
   GetNextIntruction_p : boolean;
   TmpUsedRegs : TAllUsedRegs;
   TmpUsedRegs : TAllUsedRegs;