- Removed a number of unused variables, reduces noise at compilation.

git-svn-id: trunk@22880 -

compiler/cclasses.pas

@@ -1506,8 +1506,6 @@ begin
 end;
 
 function TFPHashList.InternalFind(AHash:LongWord;const AName:TSymStr;out PrevIndex:Integer):Integer;
-var
-  HashIndex : Integer;
 begin
   prefetch(AName[1]);
   Result:=FHashTable^[AHash and FCapacityMask];

compiler/constexp.pas

@@ -42,8 +42,6 @@ type  Tconstexprint=record
             (svalue:int64);
       end;
 
-      Tconststring = type pchar;
-
       errorproc=procedure (i:longint);
 
 {"Uses verbose" gives a dependency on cpuinfo through globals. This leads

compiler/i386/hlcgcpu.pas

@@ -58,7 +58,6 @@ implementation
   procedure thlcgcpu.gen_loadfpu_loc_cgpara(list: TAsmList; size: tdef; const l: tlocation; const cgpara: tcgpara; locintsize: longint);
     var
       locsize : tcgsize;
-      locdef : tdef;
       tmploc : tlocation;
       href   : treference;
       stacksize   : longint;

compiler/ncgmem.pas

@@ -282,7 +282,6 @@ implementation
       var
         sym: tasmsymbol;
         paraloc1 : tcgpara;
-        hreg  : tregister;
         tmpref: treference;
         sref: tsubsetreference;
       begin

compiler/ninl.pas

@@ -1584,9 +1584,6 @@ implementation
 
     function tinlinenode.handle_copy: tnode;
       var
-        lowppn,
-        highppn,
-        npara,
         paras   : tnode;
         ppn     : tcallparanode;
         paradef : tdef;

compiler/nmat.pas

@@ -439,7 +439,6 @@ implementation
     function tmoddivnode.firstoptimize: tnode;
       var
         power,shiftval : longint;
-        newtype: tnodetype;
         statements : tstatementnode;
         temp : ttempcreatenode;
       begin

compiler/symdef.pas

@@ -3905,7 +3905,6 @@ implementation
       var
         j, nestinglevel: longint;
         pvs, npvs: tparavarsym;
-        csym, ncsym: tconstsym;
       begin
         nestinglevel:=parast.symtablelevel;
         if newtyp=procdef then
@@ -4447,9 +4446,7 @@ implementation
 
     function tprocdef.getcopyas(newtyp: tdeftyp; copytyp: tproccopytyp): tstoreddef;
       var
-        i : tcallercallee;
         j : longint;
-        pvs : tparavarsym;
       begin
         result:=inherited getcopyas(newtyp,copytyp);
         if newtyp=procvardef then