瀏覽代碼

* commented out uncompilable debug code

carl 23 年之前
父節點
當前提交
cdd558c3b7
共有 1 個文件被更改,包括 9 次插入6 次删除
  1. 9 6
      compiler/pass_1.pas

+ 9 - 6
compiler/pass_1.pas

@@ -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
-          inc(firstpass_several);
+{         if p.firstpasscount>0 then
+          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
-           inc(p.firstpasscount);
+{         if count_ref then
+           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