Преглед на файлове

* Removed unused vars.

git-svn-id: trunk@34405 -
yury преди 9 години
родител
ревизия
649823a246
променени са 4 файла, в които са добавени 0 реда и са изтрити 11 реда
  1. 0 4
      compiler/expunix.pas
  2. 0 2
      compiler/i386/aoptcpu.pas
  3. 0 3
      compiler/mips/cpugas.pas
  4. 0 2
      compiler/x86_64/aoptcpu.pas

+ 0 - 4
compiler/expunix.pas

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

+ 0 - 2
compiler/i386/aoptcpu.pas

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

+ 0 - 3
compiler/mips/cpugas.pas

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

+ 0 - 2
compiler/x86_64/aoptcpu.pas

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