* Removed unused vars.

git-svn-id: trunk@34404 -

compiler/fpcp.pas

@@ -289,7 +289,7 @@ implementation
     const
       align: array[0..15] of byte = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
     var
-      i,j,
+      i,
       pos,
       rem : longint;
       module : pcontainedunit;

compiler/ncgmem.pas

@@ -756,10 +756,6 @@ implementation
 
      procedure tcgvecnode.rangecheck_array;
        var
-         hightree : tnode;
-         poslabel,
-         neglabel : tasmlabel;
-         hreg : tregister;
          paraloc1,paraloc2 : tcgpara;
          pd : tprocdef;
        begin

compiler/ncgvmt.pas

@@ -986,8 +986,6 @@ implementation
 
 
     procedure TVMTWriter.generate_abstract_stub(list:TAsmList;pd:tprocdef);
-      var
-        sym: TAsmSymbol;
       begin
         { Generate stubs for abstract methods, so their symbols are present and
           can be used e.g. to take address (see issue #24536). }
@@ -1056,7 +1054,9 @@ implementation
          methodnametable,intmessagetable,
          strmessagetable,classnamelabel,
          fieldtablelabel : tasmlabel;
+{$ifdef vtentry}
          hs: string;
+{$endif vtentry}
 {$ifdef WITHDMT}
          dmtlabel : tasmlabel;
 {$endif WITHDMT}

compiler/ngenutil.pas

@@ -752,8 +752,6 @@ implementation
 
 
   class procedure tnodeutils.insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint; varalign: shortint);
-    var
-      symind : tasmsymbol;
     begin
       if sym.globalasmsym then
         begin

compiler/pkgutil.pas

@@ -77,7 +77,6 @@ implementation
   procedure exportprocsym(sym:tprocsym;symtable:tsymtable);
     var
       i : longint;
-      item : TCmdStrListItem;
       pd : tprocdef;
     begin
       for i:=0 to tprocsym(sym).ProcdefList.Count-1 do
@@ -103,8 +102,6 @@ implementation
 
 
   procedure exportabstractrecordsymproc(sym:tobject;arg:pointer);
-    var
-      def : tabstractrecorddef;
     begin
       case tsym(sym).typ of
         typesym:
@@ -142,8 +139,6 @@ implementation
 
 
   procedure exportabstractrecorddef(def:tabstractrecorddef;symtable:tsymtable);
-    var
-      hp : texported_item;
     begin
       { for cross unit type aliases this might happen }
       if def.owner<>symtable then
@@ -188,8 +183,6 @@ implementation
 
   procedure insert_export(sym : TObject;arg:pointer);
     var
-      i : longint;
-      item : TCmdStrListItem;
       isglobal,
       publiconly : boolean;
     begin
@@ -274,7 +267,6 @@ implementation
       b,
       untilb : byte;
       l,m    : longint;
-      f      : file;
       ext,
       s      : string;
       ppuversion : dword;
@@ -645,8 +637,6 @@ implementation
         i,j,k : longint;
         sym : tasmsymbol;
         cacheentry : pcacheentry;
-        list : TAsmList;
-        labind : tasmsymbol;
         psym : tsymentry;
         pd : tprocdef;
         found : boolean;
@@ -839,7 +829,6 @@ implementation
 
 
     var
-      unitentry : pcontainedunit;
       module : tmodule;
       i : longint;
     begin

compiler/ptconst.pas

@@ -50,7 +50,6 @@ implementation
         datalist     : tasmlist;
         restree,
         previnit     : tnode;
-        symind       : tasmsymbol;
       begin
         { mark the staticvarsym as typedconst }
         include(sym.varoptions,vo_is_typed_const);