paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 21:30:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* commented out uncompilable debug code

Browse Source
This commit is contained in:
carl 2002-06-16 08:15:54 +00:00
parent 068e3dd944
commit cdd558c3b7
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pass_1.pas
View File

@ -119,14 +119,14 @@ implementation
hp : tnode; hp : tnode;
begin begin
{$ifdef extdebug} {$ifdef extdebug}
inc(total_of_firstpass); { inc(total_of_firstpass);}
{$endif extdebug} {$endif extdebug}
oldcodegenerror:=codegenerror; oldcodegenerror:=codegenerror;
oldpos:=aktfilepos; oldpos:=aktfilepos;
oldlocalswitches:=aktlocalswitches; oldlocalswitches:=aktlocalswitches;
{$ifdef extdebug} {$ifdef extdebug}
if p.firstpasscount>0 then { if p.firstpasscount>0 then
inc(firstpass_several); inc(firstpass_several);}
{$endif extdebug} {$endif extdebug}
if not(nf_error in p.flags) then if not(nf_error in p.flags) then
begin begin
@ -181,8 +181,8 @@ implementation
else else
codegenerror:=true; codegenerror:=true;
{$ifdef extdebug} {$ifdef extdebug}
if count_ref then { if count_ref then
inc(p.firstpasscount); inc(p.firstpasscount);}
{$endif extdebug} {$endif extdebug}
end; end;
@ -197,7 +197,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.23 2002-05-18 13:34:11 peter Revision 1.24 2002-06-16 08:15:54 carl
* commented out uncompilable debug code
Revision 1.23 2002/05/18 13:34:11 peter
* readded missing revisions * readded missing revisions
Revision 1.22 2002/05/16 19:46:42 carl Revision 1.22 2002/05/16 19:46:42 carl