paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:09:27 +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,
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;

2
compiler/symdef.pas
View File

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