* remove firstpasscount

git-svn-id: trunk@8656 -
This commit is contained in:
peter 2007-09-26 21:13:32 +00:00
parent 6b8aed593f
commit 4492ee39c5

View File

@ -295,10 +295,6 @@ interface
fileinfo : tfileposinfo;
localswitches : tlocalswitches;
optinfo : poptinfo;
{$ifdef extdebug}
maxfirstpasscount,
firstpasscount : longint;
{$endif extdebug}
constructor create(t:tnodetype);
{ this constructor is only for creating copies of class }
{ the fields are copied by getcopy }
@ -688,10 +684,6 @@ implementation
fileinfo:=current_filepos;
localswitches:=current_settings.localswitches;
resultdef:=nil;
{$ifdef EXTDEBUG}
maxfirstpasscount:=0;
firstpasscount:=0;
{$endif EXTDEBUG}
flags:=[];
ppuidx:=-1;
end;
@ -715,10 +707,6 @@ implementation
expectloc:=LOC_INVALID;
{ updated by secondpass }
location.loc:=LOC_INVALID;
{$ifdef EXTDEBUG}
maxfirstpasscount:=0;
firstpasscount:=0;
{$endif EXTDEBUG}
ppuidx:=-1;
end;
@ -767,10 +755,6 @@ implementation
destructor tnode.destroy;
begin
{$ifdef EXTDEBUG}
if firstpasscount>maxfirstpasscount then
maxfirstpasscount:=firstpasscount;
{$endif EXTDEBUG}
if assigned(optinfo) then
dispose(optinfo);
end;
@ -882,9 +866,6 @@ implementation
p.resultdef:=resultdef;
p.fileinfo:=fileinfo;
p.localswitches:=localswitches;
{$ifdef extdebug}
p.firstpasscount:=firstpasscount;
{$endif extdebug}
{ p.list:=list; }
result:=p;
end;