paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 11:28:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: cleanup

Browse Source 
git-svn-id: trunk@16488 -
This commit is contained in:
paul 2010-12-01 07:40:09 +00:00
parent ba75daa50d
commit d9a43f7858
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/nobj.pas
View File

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

2
compiler/symdef.pas
View File

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