Browse Source

* commented check code tht was invalid in 1.1

pierre 23 năm trước cách đây
mục cha
commit
01af531efb
1 tập tin đã thay đổi với 6 bổ sung3 xóa
  1. 6 3
      compiler/pexpr.pas

+ 6 - 3
compiler/pexpr.pas

@@ -610,9 +610,9 @@ implementation
          prevafterassn:=afterassignment;
          prevafterassn:=afterassignment;
          afterassignment:=false;
          afterassignment:=false;
 {$ifdef EXTDEBUG}
 {$ifdef EXTDEBUG}
-         if assigned(p1) and
+        { if assigned(p1) and
             (p1.nodetype<>calln) then
             (p1.nodetype<>calln) then
-           internalerror(20021118);
+           internalerror(20021118);}
 {$endif EXTDEBUG}
 {$endif EXTDEBUG}
          { want we only determine the address of }
          { want we only determine the address of }
          { a subroutine ?                       }
          { a subroutine ?                       }
@@ -2266,7 +2266,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.89  2002-11-18 18:34:41  peter
+  Revision 1.90  2002-11-20 22:49:55  pierre
+   * commented check code tht was invalid in 1.1
+
+  Revision 1.89  2002/11/18 18:34:41  peter
     * fix crash with EXTDEBUG code
     * fix crash with EXTDEBUG code
 
 
   Revision 1.88  2002/11/18 17:48:21  peter
   Revision 1.88  2002/11/18 17:48:21  peter