Sfoglia il codice sorgente

* allow array binary operator overloading if not with orddef

pierre 26 anni fa
parent
commit
847479367f
1 ha cambiato i file con 6 aggiunte e 1 eliminazioni
  1. 6 1
      compiler/tcadd.pas

+ 6 - 1
compiler/tcadd.pas

@@ -109,6 +109,7 @@ implementation
          { overloaded operator ? }
          if (p^.treetype=starstarn) or
             (ld^.deftype=recorddef) or
+            (ld^.deftype=arraydef) or
             { <> and = are defined for classes }
             ((ld^.deftype=objectdef) and
              (not(pobjectdef(ld)^.isclass) or
@@ -116,6 +117,7 @@ implementation
              )
             ) or
             (rd^.deftype=recorddef) or
+            (rd^.deftype=arraydef) or
             { <> and = are defined for classes }
             ((rd^.deftype=objectdef) and
              (not(pobjectdef(rd)^.isclass) or
@@ -1094,7 +1096,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.34  1999-06-02 10:11:52  florian
+  Revision 1.34.2.1  1999-06-17 12:35:23  pierre
+   * allow array binary operator overloading if not with orddef
+
+  Revision 1.34  1999/06/02 10:11:52  florian
     * make cycle fixed i.e. compilation with 0.99.10
     * some fixes for qword
     * start of register calling conventions