* Removed unused vars.

git-svn-id: trunk@35535 -

compiler/htypechk.pas

@@ -2517,7 +2517,6 @@ implementation
       var
         pd:tprocdef;
         candidate:pcandidate;
-        objdef: tobjectdef;
         st: tsymtable;
       begin
         { Give a small penalty for overloaded methods not defined in the

compiler/ncgflw.pas

@@ -1114,7 +1114,6 @@ implementation
          oldContinueLabel,
          oldBreakLabel : tasmlabel;
          finallyexceptionstate: tcgexceptionstatehandler.texceptionstate;
-         prefinallyflowcontrol : tflowcontrol;
          excepttemps : tcgexceptionstatehandler.texceptiontemps;
          reasonreg : tregister;
       begin

compiler/nflw.pas

@@ -1526,7 +1526,7 @@ implementation
 
     function tfornode.pass_1 : tnode;
       var
-        ifblock,whileblock,loopblock : tblocknode;
+        ifblock,loopblock : tblocknode;
         ifstatements,statements,loopstatements : tstatementnode;
         fromtemp,totemp : ttempcreatenode;
         do_loopvar_at_end : Boolean;

compiler/ngtcon.pas

@@ -1675,7 +1675,6 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
     procedure tasmlisttypedconstbuilder.parse_objectdef(def:tobjectdef);
       var
         n      : tnode;
-        i      : longint;
         obj    : tobjectdef;
         srsym  : tsym;
         st     : tsymtable;