mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-23 02:29:34 +02:00
* remove firstpasscount
git-svn-id: trunk@8656 -
This commit is contained in:
parent
6b8aed593f
commit
4492ee39c5
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user