ソースを参照

* Removed unused vars for x86 compiler.

git-svn-id: trunk@31743 -
yury 10 年 前
コミット
e04a3b4ac6

+ 0 - 3
compiler/aggas.pas

@@ -623,9 +623,6 @@ implementation
       i,pos,l  : longint;
       InlineLevel : cardinal;
       last_align : longint;
-{$ifdef cpuextended}
-      e        : extended;
-{$endif cpuextended}
       do_line  : boolean;
 
       sepChar : char;

+ 4 - 8
compiler/x86/agx86nsm.pas

@@ -604,8 +604,10 @@ interface
       end;
 
     procedure TX86NasmAssembler.WriteGroups;
+      {$ifdef i8086}
       var
         i: Integer;
+      {$endif i8086}
       begin
 {$ifdef i8086}
         if target_info.system in [system_i8086_msdos,system_i8086_win16] then
@@ -636,12 +638,6 @@ interface
       consttype : taiconst_type;
       do_line, SkipNewLine,
       quoted   : boolean;
-      co       : comp;
-      sin      : single;
-      d        : double;
-{$ifdef cpuextended}
-      e        : extended;
-{$endif cpuextended}
       fixed_opcode: TAsmOp;
       prefix, LastSecName  : string;
       LastAlign : Byte;
@@ -1332,7 +1328,7 @@ interface
             comment : '; ';
             dollarsign: '$';
           );
-
+{
        as_i386_nasmdarwin_info : tasminfo =
           (
             id           : as_i386_nasmdarwin;
@@ -1345,7 +1341,7 @@ interface
             comment : '; ';
             dollarsign: '$';
           );
-
+}
        as_i386_nasmbeos_info : tasminfo =
           (
             id           : as_i386_nasmbeos;

+ 1 - 7
compiler/x86/cgx86.pas

@@ -1703,12 +1703,8 @@ unit cgx86;
 
 
     procedure tcgx86.a_op_const_reg(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg: TRegister);
-
-      var
-        opcode : tasmop;
-        power  : longint;
-        href : treference;
 {$ifdef x86_64}
+      var
         tmpreg : tregister;
 {$endif x86_64}
       begin
@@ -1812,8 +1808,6 @@ unit cgx86;
 
     procedure tcgx86.a_op_const_ref(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; const ref: TReference);
       var
-        opcode: tasmop;
-        power: longint;
 {$ifdef x86_64}
         tmpreg : tregister;
 {$endif x86_64}

+ 2 - 0
compiler/x86/nx86add.pas

@@ -932,7 +932,9 @@ unit nx86add;
       var
         op : topcg;
         sqr_sum : boolean;
+        {$ifdef dummy}
         tmp : tnode;
+        {$endif dummy}
       begin
         sqr_sum:=false;
 {$ifdef dummy}

+ 0 - 1
compiler/x86/nx86inl.pas

@@ -806,7 +806,6 @@ implementation
         negop3,
         negproduct,
         gotmem : boolean;
-        hp : tnode;
       begin
 {$ifndef i8086}
          if (cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[] then