git-svn-id: trunk@16488 -
@@ -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;
@@ -2834,8 +2834,6 @@ implementation
constructor tabstractprocdef.ppuload(dt:tdeftyp;ppufile:tcompilerppufile);
- var
- b : byte;
begin
inherited ppuload(dt,ppufile);
parast:=nil;