compiler: cleanup - remove unused variables

git-svn-id: trunk@14493 -

compiler/htypechk.pas

@@ -2004,7 +2004,6 @@ implementation
         def_to   : tdef;
         currpt,
         pt       : tcallparanode;
-        tmpeq,
         eq       : tequaltype;
         convtype : tconverttype;
         pdtemp,

compiler/ncgcon.pas

@@ -262,10 +262,9 @@ implementation
 
     procedure tcgstringconstnode.pass_generate_code;
       var
-         l1,
          lastlabel   : tasmlabel;
          pc       : pchar;
-         l,i : longint;
+         l: longint;
          href: treference;
          pooltype: TConstPoolType;
          pool: THashSet;

compiler/ncgobjc.pas

@@ -54,12 +54,9 @@ uses
 
 procedure tcgobjcselectornode.pass_generate_code;
   var
-    reflab,
-    strlab : tasmlabel;
     pool   : THashSet;
     entry  : PHashSetItem;
     name   : pshortstring;
-    pc     : pchar;
   begin
     if current_asmdata.ConstPools[sp_varnamerefs]=nil then
       current_asmdata.ConstPools[sp_varnamerefs]:=THashSet.Create(64, True, False);

compiler/nutils.pas

@@ -631,8 +631,10 @@ implementation
     { accesses                                                       }
     function node_complexity(p: tnode): cardinal;
       var
-        correction,
+        correction: byte;
+{$ifdef ARM}
         dummy : byte;
+{$endif ARM}
       begin
         result := 0;
         while assigned(p) do

compiler/optbase.pas

@@ -82,7 +82,6 @@ unit optbase;
 
     procedure DFASetInclude(var s : tdfaset;e : integer);
       var
-        i,
         e8 : Integer;
       begin
         e8:=e div 8;

compiler/wpoinfo.pas

@@ -208,7 +208,6 @@ implementation
   procedure tunitwpoinfo.deref;
     var
       i: longint;
-      len: longint;
 
     begin
       if (init_settings.genwpoptimizerswitches=[]) then