* removed/conditionalised several unused variables

git-svn-id: trunk@4194 -

compiler/assemble.pas

@@ -1059,9 +1059,7 @@ Implementation
 {$ifdef x86}
         co : comp;
 {$endif x86}
-        hs : string;
         objsym,
-        objsymparent,
         objsymend : TObjSymbol;
         leblen : byte;
         lebbuf : array[0..63] of byte;

compiler/ncgcal.pas

@@ -813,7 +813,9 @@ implementation
         pvreg,
         vmtreg : tregister;
         oldaktcallnode : tcallnode;
+{$ifdef vtentry}
         sym : tasmsymbol;
+{$endif vtentry}
       begin
          if not assigned(procdefinition) or
             not procdefinition.has_paraloc_info then

compiler/ncginl.pas

@@ -677,8 +677,6 @@ implementation
 
     procedure Tcginlinenode.second_get_frame;
 
-    var frame_ref:Treference;
-
     begin
       if current_procinfo.framepointer=NR_STACK_POINTER_REG then
         begin

compiler/nflw.pas

@@ -1117,7 +1117,7 @@ implementation
    function tgotonode._getcopy : tnode;
      var
        p : tgotonode;
-       i : aint;
+{       i : longint; }
      begin
         p:=tgotonode(inherited _getcopy);
         {

compiler/nmat.pas

@@ -663,7 +663,6 @@ implementation
     function tunaryminusnode.pass_1 : tnode;
       var
         procname: string[31];
-        temp: tnode;
       begin
         result:=nil;
         firstpass(left);

compiler/nobj.pas

@@ -1209,8 +1209,11 @@ implementation
          vmtentry : pvmtentry;
          procdefcoll : pprocdefcoll;
          i : longint;
-         procname,
-         hs : string;
+         procname
+{$ifdef vtentry}
+         , hs
+{$endif vtentry}
+                     : string;
       begin
          { walk trough all numbers for virtual methods and search }
          { the method                                             }
@@ -1258,7 +1261,9 @@ implementation
          dmtlabel : tasmlabel;
 {$endif WITHDMT}
          interfacetable : tasmlabel;
-         hs : string;
+{$ifdef vtentry}
+         hs: string;
+{$endif vtentry}
       begin
 {$ifdef WITHDMT}
          dmtlabel:=gendmt;

compiler/optunrol.pas

@@ -78,7 +78,6 @@ unit optunrol;
         counts : qword;
         unrollstatement : tstatementnode;
         unrollblock : tblocknode;
-        entrylabel : tlabelnode;
       begin
         result:=nil;
         if (cs_opt_size in aktoptimizerswitches) then

compiler/pmodules.pas

@@ -823,7 +823,9 @@ implementation
          pd : tprocdef;
          unitname8 : string[8];
          has_impl,ag: boolean;
+{$ifdef i386}
          globalvarsym : tglobalvarsym;
+{$endif i386}
       begin
          if m_mac in aktmodeswitches then
            current_module.mode_switch_allowed:= false;

compiler/ptype.pas

@@ -336,7 +336,6 @@ implementation
         var
            pt1,pt2 : tnode;
            lv,hv   : TConstExprInt;
-           ispecialization : boolean;
            old_block_type : tblock_type;
         begin
            old_block_type:=block_type;

compiler/symdef.pas

@@ -2679,8 +2679,6 @@ implementation
 
 
    procedure tabstractrecorddef.derefimpl;
-     var
-       storesymtable : tsymtable;
      begin
        inherited derefimpl;
        tstoredsymtable(symtable).derefimpl;