Explorar o código

* Removed unused vars.

git-svn-id: trunk@34405 -
yury %!s(int64=9) %!d(string=hai) anos
pai
achega
649823a246

+ 0 - 4
compiler/expunix.pas

@@ -136,10 +136,6 @@ var
   pd  : tprocdef;
   pd  : tprocdef;
   anyhasalias : boolean;
   anyhasalias : boolean;
   i : longint;
   i : longint;
-{$ifdef x86}
-  sym : tasmsymbol;
-  r : treference;
-{$endif x86}
 begin
 begin
   pd:=nil;
   pd:=nil;
   create_hlcodegen;
   create_hlcodegen;

+ 0 - 2
compiler/i386/aoptcpu.pas

@@ -584,8 +584,6 @@ var
 
 
   TmpRef: TReference;
   TmpRef: TReference;
 
 
-  TmpUsedRegs: TAllUsedRegs;
-
   TmpBool1, TmpBool2: Boolean;
   TmpBool1, TmpBool2: Boolean;
 
 
   function GetFinalDestination(asml: TAsmList; hp: taicpu; level: longint): boolean;
   function GetFinalDestination(asml: TAsmList; hp: taicpu; level: longint): boolean;

+ 0 - 3
compiler/mips/cpugas.pas

@@ -179,9 +179,6 @@ unit cpugas;
         Op: TAsmOp;
         Op: TAsmOp;
         s:  string;
         s:  string;
         i:  integer;
         i:  integer;
-        tmpfpu: string;
-        //tmpfpu_len: longint;
-        r: TRegister;
       begin
       begin
         if hp.typ <> ait_instruction then
         if hp.typ <> ait_instruction then
           exit;
           exit;

+ 0 - 2
compiler/x86_64/aoptcpu.pas

@@ -50,8 +50,6 @@ uses
 function TCpuAsmOptimizer.PeepHoleOptPass1Cpu(var p: tai): boolean;
 function TCpuAsmOptimizer.PeepHoleOptPass1Cpu(var p: tai): boolean;
 var
 var
   hp1, hp2: tai;
   hp1, hp2: tai;
-  GetNextIntruction_p : boolean;
-  TmpUsedRegs : TAllUsedRegs;
 begin
 begin
   Result := False;
   Result := False;
   case p.typ of
   case p.typ of