compiler: cleanup

git-svn-id: trunk@16488 -

compiler/nobj.pas

@@ -235,7 +235,6 @@ implementation
         hasequalpara,
         hasoverloads,
         pdoverload : boolean;
-        vmtpd : tprocdef;
         srsym : tsym;
         st : tsymtable;
 
@@ -411,7 +410,7 @@ implementation
 
         function found_category_method(st: tsymtable): boolean;
           var
-            entrycount, procdefcount: longint;
+            entrycount: longint;
             cat: tobjectdef;
             vmtpd: tprocdef;
             vmtvis: tvisibility;

compiler/symdef.pas

@@ -2834,8 +2834,6 @@ implementation
 
 
     constructor tabstractprocdef.ppuload(dt:tdeftyp;ppufile:tcompilerppufile);
-      var
-        b : byte;
       begin
          inherited ppuload(dt,ppufile);
          parast:=nil;